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GENERAL LEDGERIi 



by Midiael KeUeber 



Designed for application in a small to 
nnedium volunne business not requir- 
ing the implementation of a "double- 
entry" bookkeeping system. 

Capabilities include: 



\ — h 



Ability to establish, define, delete and sort 
up to 400 general ledger accounts. 4 ^. 

Post up to 200 entries and or adjustments 
to transaction data files per session 

Automatic updating to maintam "to-date" 
account totals. All transaction data files 
supported by user-selected reports 

Maximum hardware flexibility system with 
1 to 4 disk drives. 

Full complement of line printer reports 

/'Error-trapping" routines. 4 i — I — 4-- 



Looped program format allows access to 
sub-programs from Master Directory. 
Avoids necessity to "re-boot". 

Although the General Ledger 1.0 System provides 
a comprehensive, flexible accounting system, it 
has not been designed for use by a large volume 
business operation utilizing a rigorous dual-entry 
accounting system. However, if a double-entry 
system is in use, reconciliation reports are 
provided by the General Ledger 1.0 System. 
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SoftSide magazine is continually seeking original articles and 
software for publication. Imagination and variety in concept and 
content are the rules at SoftSide — not the exceptions. Articles are 
purchased on a per-page basis, based on content and applicability. Our 
policies with respect to software purchase are highly individualized, 
and offer the programmer several options, including one-time 
publication rights, outright purchase, and royalties on sale of 
pre-recorded cassettes. For more information, please write: SoftSide, 
PO Box 68. Milford, NH 03055. 

For uniformity, we have adopted the Radio Shack TRS-80 Level II 
BASIC as the BASIC dialect used within the pages of this magazine. It 
was chosen because it stands to become the most commonly used 
dialect among microcomputer users and because it shares a common 
heritage with the many microcomputer languages produced by 
Microsoft. 



SoftSide is published monthly by 
SoftSide Publications, P Briar Cliff Dr. 
Milford, NH 03055 Telephone: t)03- 
(r.V51-44. Subscription rates: USA bulk 
rate-Sl5 per vear. USA first class. 
APO FPO. Canada, Me.xieo, overseas 
surface mail-S22 per year. Overseas 
airmail-S2" per year. All remittances 
must be in U.S. funds. Mail subscription 
inquiries to: SoftSide Subscriptions, PO 
Bo.x (18, Milford, NH 03055. Kntire 
contents copyright 1979 .^ SoftSide 
Publications. All Rights Reserved. 



^Outgoing Mail->t 

We're beginning to see a parting of the ways in pro- 
gramming methods which may be significant for our magazine 
and the TRS-80 Software Exchange in the coming months. 
The battle lines are drawn between style and program 
efficiency. On the one hand we have the well commented, easy 
to read, stylish program that's a joy to print in the magazine 
and easy to understand and modify. On the other hand we have 
the tightly written, memory-efficient, high speed program that 
can really only be sold by tne Software Exchange. 

The stylists demand well commented, elegantly written 
programs. A programmer should be able to look at any part of 
one of their programs and know exactly what is done by that 
part, and be able to modify it easily The sytlists indent FOR NEXT 
loops, leave spaces between items, limit themselves to one 
operation per line, and use variable names that are easy to 
understand. 

The efficiency experts see style as a waste of good memory. 
With a limited number of bytes in any home computer, they 
want to make every byte count. Multiple statement lines, 
unnecessary spaces, and long variable names only fill up mem- 
ory and slow down the BASIC interpreter. Since the interpreter 
has to identify every byte, even a space, it takes more time to 
run a stylish program. This can be important in complex pro- 
grams, even crucial in graphics routines, especially in ani- 
mation. The really heavy artillery in the arsenal of the effici- 
ency experts is super graphics. 

SoftSide magazine must cast its vote on the side of the 
stylists. We take our teaching function seriously, and want pro- 
grams that help others to become good programmers. We also 
choose programs with an eye to the ease with which they can be 
adapted to other purposes, like the German proqram in this 
issue. Any program that is to be adapted, modified, or changed 
really ought to be written by a stylist. 

Super graphics is a complex method of storing TRS-80 
graphics characters in memory using far less memory than SET, 
POKE, and PRINT graphics, while executing far faster. The 
basic method is to use a machine language monitor or BASIC 
routine to modify a print statement in memory to contain graph- 
ic characters. This technique is not suited for magazine use, as 
a listing of the program shows BASIC tokens like CLS, REM, 
and DEFINT instead of the graphic characters. Such listings 



are too confusing in print, but the method gives marvelous 
graphics, as any user of one of Leo Christopherson's recent 
programs will attest. 

Most people shouldn't side with either the stylists or the 
efficiency experts all the time. It's far better to have both skills 
and use the appropriate one. There are some programs in 
which it's ridiculous to worry about speed or memory. For 
example, ENTRAPMENT in this issue is one of the most fasci- 
nating and fun computer games we've played. Your editor and 
software editor were tempted to forget about the May issue 
when we played it! But it uses SET and RESET, does not take a 
lot of memory, and simply doesn't require the skils of the 
efficiency expert. 

We sympathize with both camps. For SoftSide, we like to 
have a readable program, with lots of comments that helps our 
readers modify the programs for their own heeds, to find errors, 
and to understand the program and th^rby increase their 
programing skills. We recognize that comments use extra 
memory. Lately, we have had difficulties squeezing our pro- 
grams into the magazine as longer and longer programs have 
been submitted. The recent issues of SoftSide have had about 
fifty percent more bytes of program than early issues, and the 
extra bytes not only fill the memory of your computer, the line 
listing fills more pages. Most of the reader comment we've 
received has focused on appreciation of longer porgrams, and 
we are trying to meet those demands. However, one long pro- 
gram requires as much space as two or three short programs, 
and the economics of printing costs and postage limit our pages. 

There is another limit to contend with, and this 
encourages the more compact style of programming. Most of 
you don't have more than 16K memory. We will not print a pro- 
gram in SoftSide requiring more than 16K, although we're con- 
sidering programs in which comments go beyond 16K, if the 
program can be made to fit by omitting them. 

There's an even more significant factor splitting the 
software camps -- graphics. The fastest and most memory- 
efficient form ' 'Super Graphics" , simply cannot be listed in the 
magazine, yet these fast, efficient graphics are far better from 
the standpoint of the end user of a completed program. 

While SoftSide votes for the stylists, there's a lot of 
sympathy within the TRS-80 Software Exchange for the effici- 
ency experts. Fast graphics, machine language subroutines, 
and elaborate programs that use memory efficiently make good 
games. We want to offer our readers the best of both worlds, 
and TSE makes that possible. 
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Amazin' Maze 



by Robert Wallace 



Lady Stubbyfingers BEWARE! 
Robert Wallace has created a 
romping computer game which 
leaves lethargic, cucumber-like 
digital extremities "at the door''. 
AMAZIN' MAZE is a fast paced 
revamp of Everyman's favorite 
game book pastime, combining 
dexterity and patience with a 
very nice use of graphics, ran- 
domness and frustration. 

The object? Get through the 
maze, or course. The catch? Each 
of the twelve mazes in a game 
cycle is scored with an increasing 
level of difficulty, and simulta- 
neously timed more sparingly. 
The use of the TRS-80 INKEY$ 
function allows keyboard selec- 
tion of movement for your 
electron escapee (it moves very 
fast!) to get in and, hopefully, out 
of one of the three maze exits. 
Each exit is allocated a point 
value depending upon its location 
and each exit value decreases as 
your time in the maze increases. 
The time allocation for the first 
maze is about 90 seconds but, by 
the time the 12th maze appears, 
this has been reduced to less than 



60 seconds. Although Mr. Wal- 
lace frowns upon wasted time, he 
has heart. As long as your 
maze-inmate is on the move the 
time clock is suspended and the 
maze remains static. But watch 
out when you stop! 

The scores for each player (up to 
four are allowed) is displayed 
when, (1) you exit the maze, or 
(2) you "blow it" time-wise and 
are penalized 2000 points(!). 

Sufficient user instructions are 
imbedded in the program so you 
can get started right away. They 
are well written and straightfor- 
ward. 

This program is "just plain fun" 
for two or more, but won't fly solo 
for too long. Nice use of graphics, 
and a well-designed game plan 
make AMAZIN' Maze a good 
TRS-80 romp. Also, take a peek 
at Bob's coding. He did a very 
nice job. 

So, grab a friend or two and be 
aMAZEd. (All afflictions are 
digital, not cerebral!) 

MDK 



Great Good Fair B.G.* 
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tnstr4JCtions: 

Program Coding: x 

Screen Format: x 

Graphics: X * Bat Guano 

Peripheral Support : none required, but bring a friend or two 

Boredom Level : needs a second body for best results 

Best Age Group : adolescent to (calm) adult 

Price to Value Ratio : good 

Bugs/other problems : none found /minor typo at line 2010 



Overall Rating 



: good, clean fun — will not cause cerebral cramping 
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TAIPAN 

A historical simulation of gun 
running and opium smuggling 
in the 1860 China seas! 
Pirates, loan sharks, storms, 
robbers and other hazards. If 
you survive, you win by 
building up your shipping 
profits till you've accumulated 
a cool million dollars. 
Level II, 16K $9.95 
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...you rise up 
beyond surface noise 
to silence, and \ 

become part of the wind. . ^ 
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From 1873 until 1978, thirteen attempts to cross the 
Atlantic by balloon ended In Mlure. Of these, 
one burst, two vanished and most of the remain- 
ing balloons were ditched at sea. Ballooning Is 
not without Its hazards. 



ATLANTIC 
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CROSSING 



by Dean Powell 



HISTORY 

More than a century before 
successful manned flight, bal- 
loons were the method man used 
to fulfill his desire to be 
airborne... this occurred in the 
latter 1700's. using a lighter than 
air gas to fill a bag and rise up 
into the atmosphere. 

There has always existed a 
challenge to cross important 
bodies of water. The first 
crossing of the English Channel 
to France was achieved in 1785. 
In 1963, Edward Yost and Donald 
Piccard flew a hot air balloon 
across the channel. (Yost is 
among several who attempted 
the Atlantic crossing, and is the 
designer and builder of the 
Double Eagle II, the first balloon 



the make a successful Atlantic 

crossing.) 

From 1873 to 1978 there were 
some 13 unsuccessful attempts to 
cross the Atlantic by balloon. Of 
these, one burst, two vanished 
and most of the others ditched at 
sea, with five aeronauts dying in 
their attempts. Ballooning is not 
without its hazards! ! 

Among the most successful of 
these attempts were the Silver 
Fox, the Double Eagle, and the 
Zanussi. From these failures 
came ex];>erience and a develop- 
ing strategy which led to the 
success of the Double Eagle II in 
1978, 

FUGHT OF DOUBLE EAGLE II 

The strategy developed that one 



could ride a high pressure 
weather system from the United 
States to Europe. Such a system 
moves in a clockwise manner 
first northeast, then southeast, 
as it moves across the Atlantic. 
To go too far north gets you into 
winds ever more northerly (as 
happened to the first Double 
Eagle, which was forced to ditch 
near Iceland) To go too far 
south gets you into winds ever 
more southerly, (as happened to 
the Silver Fox which ditched near 
the Azores) . 

The plan was to climb rapidly to 
gain good winds, but not too high 
or the winds would be unfavor- 
able and the balloon might be 
stressed by the pressures from 
superheated gas in the low- 
pressure high altitude. Such 
stress could cause a leak like the 



one which forced the Zanussi 
down just 110 miles from France. 
The balloon would then be 
maneuvered so that successive 
days would find increased alti- 
tude as the weight was gradually 
reduced during night ballasting. 
About one third of the flight of 
the Double Eagle II was above 
fifteen thousand feet. At such 
altitude, oxygen masks had to be 
used and the outside tempera 
tures were quite cold. 

Vitally important to the effort 
was tfie ground crew and the 
weather information provided 
throughout the flight. The radio 
was at times fickle and a relay 
system using ham operators had 
to be employed during some of 
the flight. The information 
obtained was necessary for stay- 
ing at the proper altitude range 






*for the correct heading through 
out the flight. 

The voyage was riot without 
excitement. A low pressure 
system following the high carried 
storm clouds which at times 
closed in on the balloon but 
finally turned harmlessly away. 
The area around Iceland also 
provided some suspense as ice 
began forming and weighting 
down the balloon. Fortunately 
heat from the morning sun 
melted that threat away. A down 
draft and high clouds which 
screened the sun and cooled the 
balloon combined to force the 
balloon down several thousand 
feet. Careful slow ballasting 
proved important in keeping the 
balloon from later rising too 
high. Above 29,000 feet the 
balloon automatically valves off 
gas to prevent undue pressure 
from building up but this release 
means that ballast must be 
dropped to prevent coming down 
at night. 

The balloon sailed correctly due 
to the careful handling by the 
crew and of course a bit of good 
luck.. It landed near Paris after 
traveling some 3,105 miles in 137 
hours. The gondola landed 
carrying the three men and only 
250 pounds of usable ballast of 
the starting 6,000 -f pounds. The 
trip was the culmination of 
months of planning and success- 
ful execution by the crew mem- 
bers, Ben Abruzzo, Maxie 
Anderson and Larry Newman, 
supported by an extensive gro- 
und crew responsible for com- 
munication and weather evalu- 
ation. 
STRATEGY 

Now you can try your skill and 



luck in an attempt to sail the 
Atlantic in a 160,000 cubic foot 
helium balloon as one of the 
three most successful balloons 
against one or two opponents or 
you may try alone for the record. 

Control of a balloon isn't difficult 
but requires much good sense. 
You drop off weight to rise 
higher or more rapidly. Pressure 
builds within the balloon as the 
sun heats the gas within and 
unless some of the gas is 
released, the balloon may tear or 
burst. You rise up beyond 
surface noise to silence and 
become part of the wind, 
moving as the wind does. 

Descent is equally simple. You 
release a valve to let off gas until 
you drop at the desired rate. If 
the descent rate is too swift, you 
must ballast carefully to slow 
your descent. Instruments on 
board show the altitude and rate 
of ascent. 

Maneuvering may be achieved 
by changing altitude since the 
wind varies in speed and direct- 
ion with altitude. You can thus 
control your flight by varying 
your height if you have know- 
ledge of weather conditions, 
wind speeds and directions at the 
various altitudes. 

You lift off in the early evening 
with a partially slack balloon 
holding from 140,000 to 150,000 
cubic feet of helium. You may 
dump ballast by pressing the B to 
drop 100 pounds at a time. You 
may valve 1 ,000 cubic feet of gas 
by pressing the G. You may try 
for radio contact by pressing the 
R to receive a chart of your 
position on the Atlantic map. 
Your exact position will be shown 



11 




TRf-80 




The Level II Manual doesn't 
tell you this, but it's very 
important not to leave a space 
between the TAB and the ( in a 
TAB statement. If you do, TAB 
will be treated as a variable. This 
is also useful, as TAB makes a 
nice variable for use with TAB. 
Here is^a program to demonstrate 
right and wrong use of TAB and 
the use of TAB as a variable. 

10CLS:PRINT 

20 FOR TAB = 5 T0 10 STEP 5 

30 PRINT TAB (TAB)"THIS IS 

WRONG" 

40 PRINT TAB(TAB) "THIS IS 

CORRECT" 

50 NEXT 

Line 20 uses TAB as a simple 
variable, line 30 uses TAB as an 
array variable and a simple 
variable, and line 40 uses TAB as 
a BASIC statement and a simple* 
variable. 



using the X, Y coordinate system 
of the TRS-80. You will also be 
given the wind conditions at the 
various altitudes, and the dis- 
tance you have covered. Don't 
count on a radio report every 
time you try; radio has a funny 
way of acting up when in an 
airborne craft! ! 

You start with 8,640 pounds 
including a base weight of the 
gondola, balloon, and the crew of 
2,400 pounds. The relative 
positions of all the balloons will 
be shown each morning at 6:00 
am so your progress can be 
compared and strategy planned. 
Your progress and on-board 
instrument readings will be 
displayed graphically. You will 
see the storm front in the 
following low pressure system if 
it is closing in, as well as high 
altitude screening clouds, and 
the horizon in the distance. Your 
instruments will give your alti- 
tude, rise rate, temperature of 
the helium in degrees Kelvin 
(same as Centigrade scale with 
Centigrade equal to 273 on the 
Kelvin scale), wind speed, and 
time since departure in day/ 
hours/minutes. Each turn con- 
sists of 12 hours of simulated 
time and takes about 5 minutes. 
Each turn will cover alternating 
cooling (night from to the 12th 
hour) then heating (day from 12 
to the 24th hour) periods of time. 

The winner is the player/ 
balloonist who crosses success- 
fully and lands nearest the Paris 
coordinates of X-104, and 
Y-22. Your starting point is 
X-22, Y-22 with Y decreasing 
as you go north. Your degree 
heading is positive above the due 
east degree reading or negative 
if going southerly. Best of luck! 
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* * SFTSIDE PI^SENTS *♦ 

* * BfiLLOON RfiCE * * 

* ♦ BV DEm POHB.L * * 

1 'fiTLfWTIC H8.L00N CROSSING 1 2 

2 'mn'S mss. 2222 2em ll^icio tx 79411 

5 CLEf«::DIt«»<2i) :DIIfl)(31) :X$="X=« ; V*="V=» :DI««T(24) :D1IC(24) :F0 

Rft=lT03 :X<fl)=22 : V(fl)=22 : 8(fi)=8648 : NEXT 

10 aS:PRINT"fiTLffl<TIC BflLLOCW CROSSING 

THIS IS R SIi1ULRTI(»< OF m. 

FLIGHT OF THE DOJBLI EAGLE II 

fiCROSS THE ftTLRNTIC, SOfE 

2105 HILES TO ft SffE LfWING 

NEfiR PARIS, FRANCE IN fi TIfE 

OF 13? HOURS-ABOUT 6 DflVS. " 

2d PRINT :PRINT"THIS m m Cf€N ^tSKEL LOI 

flTITU)E FLIOT STfSTING AT 

PRESOK ISLE mH£ ftUGll>1378. 

RLTITUI«(ffiKWB24,^FT « 

ABOUT 1/3 HAS ABOVE 15, 800 n 

USING mmi MASKS TO BREATJC" 

86 Z=ie0 : F0RT=eT05 : S(T)=Z ; 2=Z-28 : ffiXT : Z=0 : FORT=10T(E1 •.S(T)=2 : Z=Z 

+18 : : NEXT . F0RT=22T024 : Z=Z-10 : S<T)=Z ; NEXT : GOSIB^M : MTOlll 

185 X(U>=X : V(U)=V : AL(U)=«. : B(U)=B : IFH1=1THENH(U)=8 

IK PRINT§832, "12 m IIM IS MR-m'% G(M ";TD(U)i "MILES" :F0 

RI=lTO3£e0:NEXT:GOTOll5 

111 IlWr-SW H«fr INSTRlCTIC»6"iA$:IFLEFT$(A$,l)="V"GOTO10^ 

112 CLS:IHPUT'K)H MfflW PLAVING (i-3)';lP:IFll>>3G0T0112ELSEF0iffl=l 

T01P:AL(A)=1M: PRINT" VdUfE (iAdm-imm CI^IG FEET) FCK BflLO 
m »"; A; ; IhPUTZ : V<A)=Z : IFZ>16088ff>RINT"TOO MUCH: VOLmE=150^' : 
V<A)=15M00 

113 IFZa40Ma>RINT"Ta) LITTLE:Va.UIC=14^00":V(A)=1408Mi 

114 A*(l)="EA(a.E II":A$(2)="ZfWUSSr:A$(3>=»SILVER FOX°:PRINT"VO 

Ui NftE-'i A$(ft):tEXTA:F0RI=lT02^:rCXT 

115 U=U+1 : IFU>UPTffiNU=l : D5=D5+1 : DA=INT(D5/2) : H1=H1+1 : IFKl=2TffiW 
1=8 : HR=eELaGOSlB»80 : FORMTOIF : B2=INT(V(I )/3)*64+INT(X( I )/2) : P 

RINT§B2, 1; :PRINT§784, "Tt£ mBER "; li " fmS THE CURRENT POSITIO 
N FOR HILOCW « "i I : PRINT : PRINT : PRINT : FORI1=1TO1008 : «(TI1 : ffiXT 

I 
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116 IF(fl<l)=<e)(M»(flL(2)=<e)F9©(flL(3)=<8)G0T05e^ 
117HR=H(U):IFflL(U)=<8aS:PRINTfl$(U);" IS DO«N! NEXT!":FCRI=1T02 
8ffil:f£XTI:G0T0115 

128 CLS:PRINT:PRINT:PRINTfl$(U), "MEflTtER «EPm COIING ..." 

388 'UIND 

318 H=RND(5)+2 

328 FrjRT=8T05 : HT(T)=RND(5)+3 : fCXT : FClRT=6T0il : WT(T)=RND(5) : rCXT : F 

(3RT=12T01? : HT<T)=ra©(5)+3 : NEXT : FCKT=18T(E3 •.NT(T)=RND(?)+4 

338 Dl=RM)<9)-6 : Fa«l=eT04 : D(fi)=Dl : EXT : Dl=iM)(5) : F0Rfi=5T03 : D(fi)= 

Dl : NEXT : Dl=R®(5)+8 : FOI^10TOi4 ; D(fi)=Dl : NEXT ; Dl=fM)(5)+13 : Fa?fi=l 

5T019 : D(R)=D1 : fSXl : Dl=Rf«)(9)+19 : FORfi=20TO38 : D(fl)=Di ; f£XT 

348 Hl=raCi(15)-8 : F«fi=8T04 •.Hft(fi)=Ml : f€XT ; i'Jl=RND(5)+5 : FClRfl=5T09 ; U 

fl(fl)=Wl : NEXT ; Wl=Rf€)(6)+8 : Fa?R=10TO14 : Hfl(fi)=Hi : t£XT : Hl=RM)(7)+9 ; F 

(MN15T019 : Hfl(fi>=Hl : ftXT : H1=RM)(5)+13 : Fa?fl=29T038 :Mfi(fi)=Wl : NEXT 

566 K=X(U):V=V(U):V=Vai>:B=B(U):fiL=fl(U) 

510 /TITO 

511 a=i-Rtt)(0)*. 3;H=H+. 5;IFH>12THErfi=0:H<LI)=12:OTOie5 
516 V<U)=V(U)-RP(U) 

519 'TEfP 

520 CT=2^IW<9)+a*S(f«;)-(3*fiL/1000) 

524 'PRESSIM 

525 P=30*(l- ^015*RL) 

529 'VOLAIFLiRISEeTEMPiPRES 

538 CV=V(U)/12*CT/'P:IFCV>16M00THENCV=160^:IFR»©(8)>. 9PRINTe83 

2. "* fl LEflK *"i :RP(U)=RP(U)+ra«)(308):Fa?I=lTO20«e:NEXT 

535 L=. 87*CV*(1-. 815*flL/1088) 

536 ffil-(L-B-IC)/(e+IC)*25e 

539 'HIND:DIfcSPD(flLLTIME,POSI) 

548 CH=H+28-V+WT(f«)+l«(INT(flL/lW)) : IFF=9THE^F=0: RETURN 

541 D=D( INT(flL/i080) )+53-X+18-V : IFF=9THENF=8 : RETURN 

545 IFINT(H)=0GOSUB9800:GOaB9995 

566 J=COS(D*. 8174533)*CH:X=X+J/78:«F=CH/28:TD(U)=TD(U)+CH/2 

569 'ICE 

578 IF(Va5)ffl)(CT<273)TJ€NIC=IC+272-CT 

571 IF(IC>0)!»(CD273)THENIC=IC-CT+273:IFIC<8THENIC=8 

656 K=SIN(D*.014533>*CH:V=V-K/120 

iSm IFft.<=«a)TO20W0 

7880 'SMfiLL BflLLGON 

7801 aS:IFRND(8».7QQSUB38888 
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TEXT-80 




TURN YOUR TRS-aO INTO A 
HIGH PERFORMANCE WORD-PROCESSORII 

TEXT-80 includes all the features you'd expect to find ineucha 
high quality ^stem, such as 

Cut and paste 

Delete /ineert by character or line 

Local/global charges 

Variable tabulation 

Full cursor control 

Upper /lower case (with proper hardware) 

AND MUCH MORE... 

Fully si5]porte disk and line printer. Use it Incomunctlonwlth 
KVP and a letteiMiuallty printer for "hand-t,yped" form letters. 



TEXT-80 for TRS-80 with 32K, sli^ disk rnlnlinum 
LocludesoQinpletedocuiiBntatlon - 169.96 
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7802 IFaC 9PRINT§i28, ' 



7803 IFa<. a>RINT§128, »== ==- 



?m PRIHT§88e,fl$(U) 

7086 Si=15363+(18-INT(fl/2508))*64 : IFSi<i5260T[£HSl=15363ELSEIFS 

l>16028GOTrO20888 

7688 FC«?Z=lT018:)«=XC+fF:H=M+3:S=Sl+INT(XC*i. 3):ft.=ft.+F»!*2:lFft.< 

=8THEN2=16 

7010 PRINTS, «B=BflLflST G=GR5 R=RflDIO «.T="; INT(H.)i " HIM>="; IN 

T(CH)i"l«*H Ria=MNT(flR); 

7020 PRINTK%,"TE!f : VO-UC :P^SUK: DIRECTION : mm : m 

-HOIR-HIME"; 

7025 PRINTeS60, INT(CT)j :PRINTTflB(5)INT(CV)i :PRINTTffii(0)INr(P)»I 

NCH"i :PRINTTflB(23)INT(D); "DEGREES "i INT(B+IC); :PRINTTfle(45)Dfli 

f nPsf . }nt 

7056 PRINT@384. " 

7098 58=5-15362: PRINT§Se, " "i 

7100 POKES+L 160 ; Pa(E5+2, 188 : Pa(E5+2, 191 : Pa<ES+4, 191 : POKES+5, 191 

:P0KES+6> 189:P0KE5*7. 188: 5=5+64 :PRINTeS-15363, " "i :POKE 
5, 136 : FORI =5+lT0S+7 : PCKEL m : NEXT : Pa<ES+8, 157 : P0KE5+9, 148 : 5=5+6 

4:PRINT85-15362," "; 

71^ POKES+L i30:F'OKES+2, i64:P0KE5+6, 168:P0KE5+7, 166:P0KES+& 134 

:S=S+64:PRINTe5-15366, » °i :P0!<E5+3,137:P0KE5+4,172:P0KES+ 

5, 140 : P0KE5+6, 153 : P0KE5+7. 129 : 5=5+64 : PRINr§S-1536e, " ",:? 

OKES+i 168 : Pa(E5+4, 188 : P(*I5+5, 156 

7948 fl$=INKEV$: IFfl$="B"THEt®=B-l^L5EIFfi$="G"TbENV(U)=V(U)-1888 

aSEIFR$="R"THENIFRND(8».8GO5UB98e0:6OSUB9995:a5ELSEPRINT875ei 

"NO Rffl>10 CONTfiCT"; 

7947 IFB<240a>RINT(?880, "B(lLfi5T GONE! ! "i :B=24e0 

7958 NEXT2 

7960 IFflL<0TH£NftL=0;GOTO20000 

7990 69=G9+1: IFG9>lTf£f«9=e:XC=0:M=0:l«=HR+i 

7991 IFFL>2ffiMTJ€NV(U)=V(U)-l^®:PRIHT§800, "TOO HIGH-VENT OPEN 
"; •.IF<ra.>30080)flND(CV=168e88)PRINT§8M,"/R/I/P/ IN mXSm"; Wi 
U)=1080 
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7999 60TK11 

8888 'BM.LOON 

8058 B=15391 

8100 F0RJ=lT0i6:F«I=BT0B+29:FWiL i91:t£XTI :B=B+64:IEKTJ:B=1529 

2 

8200 FORI=B+i0TOB+16 : POKEL 188 : NEXT : POKEB+9, 179 : POKEB+l?, 179 : POK 

EB+i8, 155 : POKEB+8, 167 : POKEB+7, 143 : Pa(EB+19, 143 : POKEB+6, 159 :POKB 

t20,175:B=B+64 

8250 POKEB+3, 143:P0KEB+4,179:Pa(EB+5, l^:Ft)KEB+6, l^:P0KEB+28, 18 

9:P0KEB+2L 188:P0KEB+22, 179:P0KEB+23, 143:e=B+64 

8300 POKEB+L i59:P0KEB+2, 185:P0KEB+24, 182:P0KEB+25, 175:6=8+64 

8358 POKES, 167:Pa(EB+l, 190:POKEB+25, 189:P0KEB+26, 155:P0KEB+27, 14 

3:B=B+64 

8480 PCKEB, 178:P0KEB+26, 149:P0KEB+27, 128:B=8+64 

8450 POKEB, 189:PaiIB+L 155:Pa(EB+25, 167:Pa<EB+26, 158;P0KEB+27, 16 

8:8=B+64 

8500 POKEB+2, 182:P0KEB+3, 175:P0KEB+23> 159:P0KEB+24, 185:P0KEB+25, 

i59:POKEB+26,160:B=B+64 

8558P0KEB+3,189:P0KEB+4,144:F0RI=B+5T0B+21:P0KEL128:NEXT:Pa(EB 

+22, 160:POKEB+23, 190:POKEB+24, 135:P0KEBt25, 184:B=B+64 

8^ Pa(EB+5, 188:FORI=B+6TOB+20:POKE1, 128:ffiXT :P0KEB+2L 184:P0l!l 

B+22,i59:PDKEB+23,161:PGKEB+24,i98:B=B+64 

8650POKEB+6,189:POKEB+?,144:FGRI=B+8TOB+i8:POKEL128:NEXT:POKEB 

+19, 160:POKEB+20, 190:POKEB+21, 135:P0KEB+22, 184 :B=e+64 

8700 POKEB+8, i^ :F0RI=B+9T(B+17 :POKEI, 1^ : NEXT :P0KEBtl8, 184 : POKE 

B+19, 159 : POKEB+20, 161 : POKEB+21., 190 : B=B+64 

8758 POKEB+9, 189:POKEB+i0, 144:F0RI=B+liTOB+15:POKEI, 128:NEXT:P0K 

EB+16, 160:POKEB+17, 190:POKEB+18, 135:FtS(EB+19, 184 :B=*+64 

^0 POCEB+IL 180:P(»EB+12, 128:P0KEB+i3, 128:P0KEB+14, 128:P0KEB+1 

5, 184:PCKEB+16, 159:Pa<EB+17, 161 :Pa(EB+18, 198:8=6+64 

8858 P0KEB+i2, 157 : POKEB+13, 128 : POKEB+14, 174 : POKEB+15, 135 : POKEB+1 

6,184:6=6+64 

8900 POKE6+10, 135:Pa(Ee+il, 167:P0KEB+12, 158:Pa(EB+13, 139:P0KE6+i 

4, 189:Pa(EB+15, 155:Pa(EB+16, 139:8=6+64 

8950 FCRI=B+10Tffi+13 : PiMI, 48 : (EXT : Pa(E6+17, 184 : POKEB+14, 128 : POK 

EB+15, 168:P0KEB+16, 136:RETUiai 



9858 fl=15368 : CLS : FCKI=ftTm+9 : PCKE L 191 ; NEXT : POKEfl+10, 145 : POKEft+1 
2, 176 : POKEfl+14, 129 : POKER+15, 188 : POKEfl+16, 191 : POKEfl+17, 151 : POKEfi+ 
18, 129:P0KEfl+24, 148:Pa(Efl+25, l?8:F0RI=fi+26T0ft+37:P0KEI, 191:NEXT : 
P0KEft+38,176:Pa<ER+39,179:Pa(Efl+58,16e:PQK£fl+59,184 
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9855 POKEfl+68, 188:F0RI=fl+61T0ft+62:P0KEI, 191:NEXT:fi=fi+64 

9ieeFORI=ftTOfl+4:POKEL19i:ICXT:F0RI=fl+24TOft+32:Pa!EL191:NEXT:F 

0RI=ft+58T0fi+63 : FWEL 191 : NEXT 

9186P0l(Efl+5,159:P0l<Efi+6^163:Pa<Efl+7,176:Pa(Efl+8,144:P0KEfl+18,16 

0:POKEfi+lLl?6:POKER+12, 176:P0KEfl+12, 184:P0i<Efi+14, 180:POKEfl+l5, 1 

9e:P0KEft+l&143:P0KEfl+l?,171:Pa(Eft+l&15?:P0KEfl+19,O2:Pa<Efl+23, 

168:P0KEfl+22,159 

9116 POKEfl+34, O9:P0KEfl+35;i29:P0KEfH36, 13e:P0KER+3?,129:P0KER+5 

6,168:P0KEfl+5?,198:fl=fl+64 

9200 POKEft, 191 :F0RI=R+25TCfl+28:P0KEL 191 :tCXT : FORI =fl+56T0fi+68:P0 

KEI, 191:NEXT:P0KEfi+63, 191 :POKEfi+L 143:P0KEft+2, 131:P0KEfl+6, 131:P0 

KEfttl3,13e:P0KEfl+14, l?5:P«(Efi+15, 155:P0KEfi+16a35:Pa<Efl+24, 175:P 

OKEfi+29,159 

9265 POKEfl+30, 131 : POKEfl+31, 129 : POKEfl+38, 138 : P0KEfl+4L 189 : POKER+4 

2, 191:P0KEfl+43, 132:P0KEfl+55, 176:P0KEft+6L 143:P0KEfl+62,179:P0KER+ 

39,191:P(»Efl+48,191:fl=fl+64 

9398 F(Kl=ft+10Tm+12:POKEL 191 :ffiXT :P0KEft+2?, 191:F0RI=fl+55T(S+IK 

: POKEI , 191 : NEXT : PClKEfi+62, 191 : POKEfl+63, 191 : POKEA 149 : POKEfl+9, 190 : 

P0KEft+13456:P0KEfl+15, 16e:P0KEfi+16, 144:P0KEfl+24, 138:P0KEfi+25, 175 

:P»(Efl+26»i59 

9305 POKEfit28,135:POKEftt46,136:POKEfl+53,i84:POKEfi+54,190:POKEft+5 

9,151:R=ft+64 

9350 FORM+9T0fi+12:POKEL 191;NEXTI :PtSCEfl+58, 191:P0KEfl, 189 :Pa<Efi 

+L 188:Pa(Efl+2, 176:P0KEft+13, 188:P0KEfl+14, 188:P0KEft+15, 198:P0KEfl+ 
16> 189:P0KEfi+47,168:P0KEft+48, 148:P0KEfi+49, 144:P0KEfi+53, 138:P0KEfi 
+54, 143 :P0KEfl+55, 135:P0KEfi+56, 139 :P0KEft+57, 18? :P0KEfi+59, 135 

93S POKEfl+62, 144 : POKEfl+63, 140 : f!=fi+64 

9400 F0RI=flT0ft+4:P0KEL 191 :NEXT :F0RI=ft+8T0fi+15:P0KEl, 191 :NEXT :P0 

KEfl+55, 191 : POKEfl+62, 191 : POKER+63, 191 : POKER+5, 181 : POKEfl+7, 198 : POK 

Efi+16, 189 : POKER+17, 188 : POKER+18, 188 : POKER+45, 184 : POKEfl+46, 188 : PO 

KEfl+4& 143 : P0KEfl+4M81 : POKER+54. 178 : POKEfi+59, 176 

9405 POKER+60, 176 : POKER+61, 186 : fl=fl+64 

9450FORI=flTOfl+16:POKEI,191:NEXT:F(»I=fl+48TOfi+63:POKEL19i:NEXT; 

PtKER+S, 188:P0KEfl+6, 190:POKEfi+13, 143:Pa(Efl+14, 143:P0KEfl+17, 143;P 

OKER+18, 175 : POKEfi+19, 129 : POKEfl+44, 136 ; PClKEfl+45> 143 ; POKEfi+46, 131 ; 

POKEfl+47, 136 : POKER+50, 141 ; POKER+52, 184 

9455 Pa<ER+53, 198 : PC*Ifl+5L 128 : R=fl+64 

9500 F0RI=fl+5T0fl+12 : POKEL 191 : NEXT : F0Fa=fl+5iT0fl+63 : POKEI, 191 ;NEX 

T:POKEa l^:POKEfl+L 176:P0KER+2, 155:Pa<Efl+3, 143:P0i<Efl+4, 175:Pa<E 

fl+13, 179:P0KEft+17, 148:P0KEfl+18, 141:POKER+19,148:POKEfl+20. 144:P0K 

Eft+47, 136:P0KEfi+48, i72:P0KEfl+49, 188 



19 



9585Pa(Eft+58,19e:ft=fi+64 

9558FORl=fiTOfi+9:POKEL191:NEXT:FORI=fi+50TO(H63:POKEL13i:NEXT:P 
OKEfl+5, 152:P0KEfi+4, iC:P0KEfl+5, 179:P0KEftt6. i79:POKER+10. OS-.F-QKE 

fl+il,m:Pa(Efi+12,Ol:P0i<EfHi4,12i:P0KEfil+O,i4e:P0KEftH5,123:F0R 
I=fi+45T0fl+48:P0KEI, l?6:ffiXT :P0i<Efi+49, 1^ 
9555 POKEfl+52, 159 : POKEfl+52, 175 : POKEfl+55, 142 : POKEfl+56, 175 : POKEft+5 
7, 182 : POKEfl+58, 147 : POKEfi+53, 142 : fi=ft+64 

960eFORl=fiTOR+5:POKEL191:Nea:FORI=fl+45TOfi+49:POKELi91:HEKT:P 
OKEfl462,191:P0KEfl+& i59:P0KEfi+7, 131:P0KEfi+& i3i:P0KEft+32, ISBrPOK 
Efi+44, 136:P0KEftt58, i59:P0KEft+5L Ol:P0KEFl+52, 129:P0KEfl+55. i88:P0 
KEfl+57, 138:P0KER*58. O9:P0KEfl+59, 172 

3605 P0KEflt68, 172:P0i<Efl+61, 138:Pa(Eftt62, 175:fl=fl+64 
9650FORI=ftTOfi+5:POKEL191:NDCr:POKEftt5»i42:POKEfl+25,129:POKEfi+4 

&i38:P0KEfl+47,l?9:Pa<Eft+48,121:P0KEfl+49,177:F0RI=ft+51T0ft+56:P0K 

EI, 188:NEXT:P0i(Efi*59, 129:P0KEft+63. 121 

9965 PRINT§784,fi$(U);" BH.LO0H #"iUi,"aK!^m POSITION "iX$iXiV$; 

V 

9975 PRINT'ft.TITUDE= (Mm 5888 mm 158» 



9981 Il=C«:I2sD:I=H.:PRIHT"ftVG HIND= "; :FORflL=eTO20e88STEP58ee:F 

=9:GOSUB540:PRINT" "i INT(CH); :NEXT 

9985 PRINT8896, "DIRECTION='; :F0RflL=8T02M8eSTEP5^:F=9: 0518541 

:PRINT" «iINT(D);:NEXT:flL=I:CH=Il:D=I2 

9998 PRINTt964, "HEflDIf« SHOULD BE "i INT«64-X)/t 4-22+Y)i " TOT 

flL HILES=«iTD(U)i:ffiTlKN 

9995 P0KE15^, ^:P{1KE15819, 88:Bl=INT(V/2)*64+IHT(X/2) .PRINTS, 

"?"; :FORI=1TO4800:NEXT:RETURN- 

18088 CLS:PRINT§8, "BETWEEN 1872 AND 1978, SOHE 14 BflLLOONS HfiVE 

HflNfiGED TO GET 

ftlRKlRtE IH m fiTTEfPT TO CROSS T^€ flTLfflfflC. «3ST Hffl) TO DITCH 

AT SEfl 1 H«ST IN HIEfllR, 2 VWISte, OTKEIS WEK fMS) DOW 

BV UNFWORf®^ COM)ITIONS~"i 

18010 PRIMT'HINDS SHIRING NORTH, SOUTH OR EVEN 

REVERSING aTOGETHEfc OR LOSS OF GflS BV TEflRS OR VflLVING. IN ALL 

SOHE 5 flERONflUTS DIED. THE HfiZflRDS fiRE HflNV. 

FROH THESE fiTTEMPTS, R SUCCESSFUL STRflTEGV DEVELOPED, "i 

18^ PRINT" BV GOItffi 

ACROSS WITH A HIGH PRESSURE HEATHER SVSTEH, VOU CRN FOLLOW ITS 

MINDS IN A CLOCKWISE ROTATION FIRST NORTHEAST THEN SOUTffiflST TO 

LAND IN EUROPE. THE HINDS VARV WITH ALTITUDE AND POSITION SO 
THAT VOU HUST STAV IN THE"i , 
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18820 PRINT" GROWE OF CORRECT fiLTITUOE. TO GO TOOHIGH 0? TOO 

LOH FO? VE!?.' lOm HILL CfSK-t' VOJ OFF COURSE-NOJTK IF VOi «?E T 

00 Hia m SOJTHHflRD IF VOJ m TOO LOH. IVE PK)RE CFF OMSE V 

m GET, THE m£ DIFFICaT IT IS TO RECOVER. " 

18825 fl$=ItKEV$:IFfll=""G0T0i^35 

imiS CLS:PRINT"VOll? TRIP STARTS IN THE EVENIttt AT 6PM feWEN Tl€ 

COtlNG PERIOD 

BEGINS. BV mm THIS THE BH-LOON DOES NOT RISE TOO FM? WK DO 

m HAVE TO DROP HUCH BALLAST TILL THE COOLING PERIOD THE NEXT 

DAV. COVERirffi ^ niLES'i 

1602? PRINT»/DAV IS A GCO) RATE AND WILL GET TO OVERIN GOOD TIM 

E IT'S POSSIBLE TO ffi)ACK)SS FASTER-SET A RECCHi!!":IIWrAI 
lM4e CLS:PRINT"ASCEW) m DESCEND TO MAINTAIN A FAWJS.E COURSE 
BV RaEfiSING BALLAST TO ASCEND OR VALVING GflS TO DESCEND. VO 
U HAV RELEASE . 

BftlfiST BY PRESSING THE B KEV. THIS "; 
10^ PRINT»DR«>S 100 LK ffl© IS 

RECORDED ON THE INSTRUMENTS VOU HAVE ON BOARD. TO RELEASE GRS 
VOU PRESS 6 AND 1080 CUBIC FEET IS RELEASED. VOU START WITH A 
1400M-150000 CUBIC FT VOLU€ IN A 1668^1 CUBIC R KtLOON AS IS 
DETERMINED BY YOUR STRATEGY'-"; 

10052 PRlNT"HOfi£ TOLIM VEm FASTER RIS & TO HIGI€R LEVEL. i£W 
ARE OF MAX VOLUME AS VOU MAY C«J2 LEAKS. " 
10^ PRINT"IF YOU ailfi ABOVE 28,^ FT VOJR fflLOON ftJTOMATICA 
LLV 'iH-VES OFF 18^ CUBIC FEET TO PffiVENT UWHE PESSKE AID B 
IKSTING (F THE BALLOON. VOUR BASE HEIGHT IS 2480 LBS fM) VOI C 
ANWJT GO BELO^ THIS WITHOUT CUTTING OFF VOUR"; 
10070 PRINT" GCMXIA fW RIDIffiS ON WE i£I6HT RING-VERY PRECft 
RIOUSi! "i 

18880 PRINT'YOU MAY ALSO RADIO FOR YOUR EXACTPOSITION AND THE ME 
ATt€R-WIND AND WM DIISCTION FO? THE VflRIOJSALTITUDES Wi PR€SSI 
N6 THE R BUT YOU WILL NOT ALWAYS RECEIVE A 
REPORT AS THE RADIO MAY NOT WORK WHEN NEEDED"i :INPUTA$:CLS 
10030 PRINT"THE Sl£CESSFll STRATEGY W)S TO RISE fSOVE 5866 FT OU 
ICKLV TO GETGCOD HIND, BUT WT TOO HIGH OR Tl€ DIRECTION WaiD B 
E TMFAR 

rWRTR TRY TO miNTftIN A FAIRLY LEVEL COURS. IF YOU GET TOO 
FAR tCRTH 'm WILL GET ICE FCfiHING WHEN"; 
10091 PRINT" IVE TEMPERATURE IS LOW, 
BELOH 272 ON THE KELVIN SCALE-THIS IS THE TEMPERATURE GIVEN Ot^ 

YOUR GUAGE. YOU WILL ALSO FIND MORE HIND HITH INCREASED HEIGHT". 
ItfftlTA$:CLS ^ 



18892 PRIMT'THE LIFT OF THE BflliOON IS DUE TO THE WSPLflCENENT 

F flIR. THIS filR IS THINNER AT HIGHER fiLTITUDE SO THE LIFT DECREfl 

SES, BUT THEPRESSURE BEING LESS CfiUSES THE GflS HITHIN THE BflLLOO 

N TO EXPAND TO fi GREATER VOLUME. THE BALLOON E!««)S HITH INCREA 

SE"i 

18093 PRINT" IN THE 

TEMPERATURE AND SHRINKS WITH A DECREASE. TEMPERATURE DECREASES 

WITH ALTITUDE AT 7 DEGREES/ie88. THE COMPUTER DOES TIC COWLEX 

CALOlATIWe FOR VOU. VO) HILL K»IN IWKRSTANDING AS VOU PLAV SO 

THAT THE PK»>ER COMBINATION OF EXPERlEfCE, "j 
18894 PRINT" HEATHER, AND A BIT OFLUCK HILL LEAD TO A SUCCESSFUL 
CROSSING. FOR THE GAME A WINNER 

IS THE ONE LANDING NEAREST PARIS AT X=104, V=22 SAFELV. STARTING 
OWraHNATES m X=22, V=22 (M> Tl£ STAM)f»!D T(5-88 SVSTEM IS V=8 

AT WE IW'i 

18095 PRINT" INCREASIWi TO 4? AT THE BOTTEM OF T« DISPLAV HITH 
X INCREASING AS VOU MOVE EAST (RIGHT). TO BE SAFE VOUR IMPACT MU 
STE LESS Wm 188 FEET/MIN LOSS OF ALTITUDE OR VOU MAV K HURT 
ONIfPfCT. •i:IW>UTA$:CLS 

18896 PRINT"VajR INSTRIMNTS IfaUDE VOUR ClflENT V(l« IWllDI 
m EFFECT OFPRESSURE AND TEMPERATURE, THE BAROMETRIC PRESSURE AT 
PRESENT 
flTITUDE IN IfO£S Cf fWRClRV, Tl£ HIND SPEED IN fPH, TJ£ 
DIRECTION OF THE HIND IN DEGREES HITH POSITIVE ANGLE IF MOVING" 
im? PRINT"NC«Tffi=5T AND mVUS IF SOUTUfSL VOU? CURRENT ICIGH 
T IN LBS 

INaUDING BALLAST AND BASE HEIGHT (FABRIC, PEOPLE « CATAMARAN 
STVLE GONDOLA), ELAPSED TIME IN DAVS HOURS MINUTES. THERE HERE 
THREE PEOIE m BOAH) Tffi Wmi EMI II. OOD LUCK!! 
18099 INPUT=A$:60T0112 
28^8 'TOUCmOHN 

mm AR=-flR:aS:IFfKa8PRINT"PERfECT LAM)ING AT •;X,V:G0T02M98 
28018 IFAR<68PRINT"LfiH)Ilffi A BIT ROUGH" •.(a)TO2809e 

28828 IFAR<10^INT"OO(S)OFFFF!!! VOJ'K DOW HIT A BIT SH«(EN!! 
« :G0T02^ee 

28838 IFW&108PRINT"* ♦*CRASH!!***VOU CLUTZ$«X» 

26048 IFRND(0)>. 8PRINT"V0U BKIKE VOl« LEG!!":Q3TO208M 
20850 IFRM)(8)>. ?PRINT"VOU SPffiltCD VOUR A»:LE!!":(»TO2809e 
28860 PRINT'VOU HAVE THE MIND KNOCKED OUT OF VOU AND ARE BEING D 
I^HiGED BV Tl£ ^ILOON AS VOU HANG OVER THE SIDE! 
260^ PRINT'AND THIS IS HHERE VOU ENDED UP ":FKI=1 
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TO280B:NEXT :Q0SUB9e88 

2ine 'MERLSAVE FINRL STRTS 

22888 IFPOINTaV)=-lPRIKT976&*V0U'l)E ON Ulll>!VG0T02238e 

22166 PRM676&' SPLASH, VOU'RE IN Tt€ DRIM(!!VF0RI=lTO2e 

88:IEXT 

22258 IFRH>(8)>. 8PRINTft»(U>> ■ LOST HT SEflVG0T02238B 

22268 IFroiNT()0V)=8PRINT'R PASSING BOAT PICKED VOU UP 

22388 FQRMT01588:ICXT:G0Sie9995:FQRMTO2ee8:IEXT:n(U>=DA*24> 

HR«l1/68:X(U)=X.V(U>=V:AL(U>=8:G9=8:»>e:N=8:H=e:G0T0US 

38888 PRINT8SiZ ■ CEOCCCCCCCEC 

COCgCCCCOGCCCCCCCCE 

31888 RETIKN 

58688 'END 

58188 CLSiPRINT-FINRL POSITIONS 

"i :F0RI=lTOUP:PRINT"BflLLO0N •"; Ii"TII€=";n(I):PRIN[T'TOTflL DISTft 

NCE-%TD(I):PRINT''END POSITION' :PRIHTXIiX(I)iV$iV(I):D=Stt(ffi5(X 

(I>-164)(2tflB5(V(I>-22)[2)«38:PKINT-DISTnCE TO P(IRIS=-iD:IEXTI: 

G0Slfi88e8:irPUTAt:EM) 



TIm [ symbols In this HsUng thotiM bs n&d 
m t Of "ralso tp ths p o wwr" 
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TIIKt II PHUT: 

Atlantic Balloon Crossing 



The POKE graphics handling routine in the map routine for 
Atlantic Balloon Cross is convenient to program, read, and 
debug. The method is to use a variable to indicate the start of the 
video display memory (memory location 15360), and then POKE 
the appropriate graphic characters into the display memory one 
line at a time. At the end of each line (64 spaces), you add 64 to 
your variable to get to the beginning of the next line. 

This is illustrated by line 9050 of Atlantic Balloon Cross. A 
is used as the POKE variable and is initially set to 15360. Then 
the top line of the map is POKED directly into the screen 
memory, using FOR NEXT loops for repeated characters. This is 
continued in line 9055. Then the last statement of line 9055, 
A = A + 64, sets the graphic variable to the start of the next line. 
This process is continued through the program. 

This is one of the best methods of presenting graphics in the 
magazine. POKE graphics are much faster than SET graphics, 
and easier to read and debug than PRINT graphics. There is a 
compromise in speed over PRINT graphics, which are excellent 
for short displays, but the ease of mpdificatioh and excellence 
of presentation are worthwhile. 



9886 'HflP 

9858fl=45368:aS:F0RI=flT0fi+9:P0!<EL19i:NEXT:WIfl+i^^ 

2. 176:P(»Efl+14, 129:P(3KEft+15, 188 :P(*:Efl+i6> 191 :P0KEfl+17, 151 :POKEfi+ 

18, 129 : f«<EI^24, 148 : Pa<Efl+25, 178 : FORI 4i+26T0R+^^ 

POKEfl+38, 176:P0KEfl+29> 179:P0KEfi+58, 168 :P0KEfl+59, 184 

9855 POKEfl+68, lM:F0RI=fl+61T0fi+62:POKEL 191 .NEXT :fl=fl+64 

9188F0RI=flT0fl+4:P(lKEL191:NEXT:F0RI=fi+24T0fl+32:P0KEL191:NEXT:F 

0RI=fl+58T0fl+63:P0KEL 191 :NEXT 
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th+€ 
H/1RD SID€ 

Of 
SOfTSID€ ? 



Recently, some people have 
expressed doubts about the prac- 
tical valueofthe"home" com- 
puter; others claim that the microcomputer has little worth as a 
business machine. Most of the controversy stems from a claimed lack 
of software — the hardware, it is said, has the potential to do wondrous 
things if only the programs were avai^able. Although we are the 
nation's largest independent source of software for the TRS-80, we can 
see both sides. Even though many of those "wondrous" programs are 
now available, we agree that, at this time, not everyone can fully utilize 
a computer. Undoubtedly, a few people who bought TRS-80s were 
unhappy with them; others may have upgraded to a bigger computer. 
On the other hand, there are many who desire a TRS-80 but cannot 
afford one. HARDSIDE has been conceived as a means of satisfying 
both sides by providing a market place for the purchase and sale of 
used TRS-80S. Accordingly, we present a list of prices for used TRS-80 
equipment In good condition: 



The prices shown at 
right may fluctuate as 
the market shapes up. 
So, if you want to sell 
your TRS-80, we'll pay 
— CASH. And, if you're 
looking for the best 
selection In hardware for 
TRS-80, we have it! 



Either way, give us a call 
at 603-673-5144. Today. 

H?ird9id€ 



UNIT 


WE'LL PAY 


SELLf 


Level I4K* 
LeveUUK* 
Level I16K* 
Level 1 11 6K* 
Level H16K* keypad 


$275 
$350 
$325 
$450 
$525 


$350 
$425 
$400 
$600 
$675 


Expansion Interface qK 
16K 
32K 


$175 
$225 
$275 


$225 
$300 
$375 


Drsk Drives 

1 


$250 
$225 


$39^ 
$375 


Printers Friction feed 

Tractor feed 

Quick Printer 


$650 
$750 
$250 


$800 
$900 
$325 


RS-232C 
Telephone Int. 1 
Telepiione int. H 


$50 
$ 50 
$100 


$ 75 
$ 75 
$150 


tSubJect to availability 
other prices by request 

* Keyboard, cassette, video and power supply 



Your market for used TRS-80 and pertpherats 
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Give us a Buzz ... 
we'll give you a 
Charge! 

To order merchandise from TSE or a 
subscription to either SoftSide or 
PROG/80, simply telephone our 
Customer Service department and 
place your order on VISA or Master 
Charge. Office hours for telephone 
orders are Monday— Friday, 9:30am 
to 5:30pm (Eastern time) 

603*673*5144 

CUSTOMER 
SERVICE LINE 





The theory of biorhythm states that 
everyone is subject to a group 
of life cyctes which affect 
their daily lives. 



FrankB.Rowlett, Jr 




Many busi- 
nesses, NASA, 
even the Federal govern- 
ment use biorhythms to pre- 
dict employees' good and bad 
days. Now, you can, too! You 
TRS-80 will compute anyone's 




biorhythms 
in seconds, 
displaying the three 
resulting curves on a full- 
screen plot. It's fun to see 
historical biorhythms, too ... see 
Napoleon at Waterloo, Kennedy 
at Dallas. Biorhythms is fun, easy 
to use, and practical! 

Level II, 16K - $4.95 



Tf i TRS-80 Soffluicire Cxchoncic 

9 17 Briar Cliff Drive Milford, New Hampstiire 03055 
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©etmatt 

by Computer Graphics 

He was a computer. She was a tape recorder. 
He only spoke an obscure English dialect called 
BASIC. She only spoke German. But when this 
program bridged the language gap; their love 
made the circuits hum. 

'' I ' I III . I ^^ I I I , ni l II . I I m ' . ' . ' 

6 REH REHRITTEN BY COHPUTER QRfiPHlCS 

7 REH P.O. B(« 222, HOLTSVILLE NY 11742 

10 aS:PRINT:PRINT CHR*(22) 

11 PRINT'GERHRN HORD QUIZ" 
48 PRINT; INPUT»TO BEGIN HIT EKTER"iG 
41 CLS:{>RINTM58,CHR$(23)i''HERE UE GO- 
45 ON G GOTO (6 
68 S2=126:G0T078 
7eDINR$<SZ,2),C(S2) 
75 ON G GOTO 2888 
2815 605UB 13888 
2830 C1*="ENGLISH" : C2$="GERHRN" 
2848 Slt="ENGLISH IS" :S2$="GERNflN HORD IS" 
2055GOTO2588 

2877 DfllTaRBflNDONNEKT; flBISTUNG, RCCOUNT, RECtMm flCID, SRURL (CCm 
ECKER, ADDITION, VERGR0SSERUN6, BDHIL EINLRSSEN. nDVmCE, VORSCHUSS, fl 
DVICL RRL RDVISL RATEN, flGREEHENT, UBEREINSTIffUNG, RLCOHOb ALKOHOL 
, RLLOV, LEGIERUNG, flffiflSSADOR, GESflNDTE 

2079 DflTAANSHER, fMMlRL APPAREL KLEIDUNG, ART, KUNSL ASSIGN, mUEIS 
EN, ASSORTHENT, ASSORTIHENT, ATTEST, BEZENGEN, BACON, SPEOG BALANCE, BI 
LANZ, BEE, BIENE, BEEF, RINDFLEISCH, BEER, BIER, BILL HECHSEL BOOTS, STI 
EFEL 6RAM>V, BRANHTUEIN, BUV, KAUFEN, CANAL KANAL 
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2^ DRTRCmCEL flNNULLIERETl CflNDV, ZUCKERKERK, CflU Kfl^REN, CfKGO, FR 

flCHT. CflRPET, TEPPIGHE, CflRRIflGL HflGEN, CflSH KftSSE, CENT, HUNDERT, CHfil 

N. KETTL CHftIR, STUHL, CHEESE, KflSE, CIGflR, ClGflRRL CLAIM, fWSPRUCH, COF 

FEE, KffFEE, COIN, MUNZE, CORN, GETREIDE 

2083 DflTflCREDlT, KREDIT, DflMfiGE, SCHflDEH, DATE, DATUM, DEAL, HANDEL, DEB 

T, SCHULD, DELIVERY, LEIFERUNG, DOLL PUPPE, DOZEN, DUTZEN, DRUG, DROGUE, 

DVE, FflRBE, EARN, ERHERBEN, EGG, EI, FABRIC, FABRIKfiT, FAN, FflCHER, FLOUR, 

ffiH, FRUIT, FRACHT, Gi=i1E, MILD 

20K DATAHAT, HUT, HIDE, HAUT, IRON, EISEN, IVORY, aFENBEIN, JADE, JACON 

ET, JET, GAGflT, KELP, TAttffiSCHE, KNIFE, ffiSSER, HI«ER, KWHCLZ, l«IL, POS 

T, MAF^ET, Nffl?KT, MILK, MILCH, MONEY, GELD, miL, mm., NEEDLE, W»EL iiM 



TR5-80 
PROCRAfflfllinC HlflT 

It's possible to keep several different programs in nnemory at the 
same time, so long as the line numbers don't conflict. Use RUN 
(line number) to execute the one you want, or to go from one to 
another. Since Level II and Disk BASIC zero all variables when 
RUN is executed, you don't have to worry about overlapping In 
memory, except that you don't have to use the cassette recorder or 
the disk to go from one program to another. Here's a sample 
program for you: 

10 REM*PROGRAM0* 

20 INPUT'WHICH PROGRAM D0Y0UWANT(1 OR 2)";A 

30 IF A = 1 RUN 100 

40 IF A = 2RUN200 

50 GOT0 10 

100 REM* PROGRAM 1 * 

110 PRINT 'THIS IS PROGRAM 1" 

120 INPUT''(PRESSENTER)'^;A$ 

t30 RUN 10 

200 REM * PROGRAM 2 * 

210; PRJNT THIS IS PROGRAM 2* 

220 INPUT '(PRESS ENTER)";A$ 

230 RUNia 

You might want to use a renumber routine to change your 
programs so that they have different line numbers, then put them 
on the same tape. Disk users can use the MERGE command to 
combine programs. Level M users wiffhaveto use a combining 
program. 
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BER, Zfl, MTS, Hff ER, OBTfllN, ERLfWCEN 

2087 DfiTfiOIL OL, OVSTERS, flUSTEIt PftINT, OLFflRBL PflPER, PflPIER, PENS, F 

EDER, PEPPER, PFEFFER, PINS, STECKNflDEL, POSTftGE, PORT OE LETTRE, RflGS, 

LUHPEN, RECORD, VERZEICHNIS, RICE, REIS, RVE, ROQGEN, SflLL VERKf«JF, SfLT 

, SflLZ, Sa«PLE, HUSTER, SfiTIN, fiTLflS 

208S DflTfiSflW, SftGE, SELL, VERKftUFEN, SHIP, SCHIFF, SHIRTS, HEMDE, SHOT, K 

UGEL SHOB, SCHUHE, SILK, SEIDE, SOfiP, SEIFE, TfiBLE, TISCH, TAX, TfiXE, TEfi 

, THEE, TIN, 2INN, TIRE, RflDSCHIEWC, TOOL, HERK2ENG, W. SPIEL2ENG, USflG 

E, GEBRffim WER, UFFFEL t««{, KRIE& 

2091 DRTaim mCHS, l€RPON, UflFFE, ICIGK, UflGEN, UHEflT, iCIZEN, NINE, UE 

IN. am, mm, ms>, wu, north, ^rth, sfm mm. vb.loh, (£lb, zitc, z 

IWOZOHLGlKTa 

2500 as 

2510 PRINT, "SUBJECT: "Cl$;" AND 't3$ 

2520 RRINT"HOH MOULD VOU LIKE TO TAKE "VOUR TEST ????":PRIHT 

2521 PRINT"! DRILL (VERV SIMPLE)" 

2522 PRINT"2. MULTIPLE CHOICE (fl BIT HARDER)" 

2523 PRINT"! TRUE AND FALSE (VOU MIGHT OUTGUESS THIS ONE) 
2525 PRINT"4. MATCHING (LUCK STILL MIGHT PULL VOU THROUGH) 

2527 PRINT"5. FILL IN THE H.»*: (VOU MUST KNOi VOUR SUBJECT) 

2528 PRINT 

2529 PRINT 

2530 PRINT" "; : INPUT'PLEASE ENTER VOl« ClOICE'ireS 

2540 CLS:PRINT§4S,C«»(23)«I JUST LOVt DOING THIS»:IFPE5=<00ORP 

E5>5THEN2500 

2550 FORX=1TO^00:NEXTX 

2600 ONPE5a)TO3000, 4000, 5000, 6000, 7008, 5 

2610GOTO2500 

3000 aS:FOR }«=1T0SZ 

3010 PRINT0384, A$(}«, 1); " "; Sll; ■; "; A$()«, 2) 

3015 PRINT :PRINT°TVPE ( HELP ) TO STOP DRILL 

3020 PRINTfl$(}«,2); " ";S2$; :INPUTBI 

3025 IFB*="HELP"THEN6OTO3090 

3030 IFB*<)A$(XX,1)THEN PRINTW60, "HRONG PLEASE REDO THE PROBLEM 

" : »I=NW+1 : FORX=1TO10M : fCXTX : CLS : GOTO3010 

3058 CLS 

3K0PRINI0384,A*<XX,1)J" "iSll;" "i:INPUTB*:CLS 

3070 IFB*<>A*(»(,2)T«NPRINT§960; "WRONG KEASE REDO THE PROBLEM" 

:NH=»I+1:FORX=1TO1080;HEXTX:CLS:GOTO3010 
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3888 CLS:PRIMT§525,CHR$(23)"BR1W0: VOU GOT IT !":NR=NR+i:FORX=lT 
01888:NEm:CLS:HEXT>«: 

3085CLS 

3098 PRIMT'SO FAR VOU HftVE THIS HfiNV RIGHT ="iNR 

3188 PRINT"SO FAR VOU HflVE THIS HfiNV URONG =";NM 

3185 F0RX=1T04888:NEXTX 

3119 aS:NR=8;W*=8 

3128 W=1:G0T09888 

488805 

4881 F0RX=1T0SZ:C<X)=8:NEXTX 

4882 aS:PRINT§384, 'MULTIPLE CHOICE" 

4818 irmiT'HOU Vm questions do VOU UfiNT";92 
4811 lFQ2aTHENCLS:G0T04882 

4828 IFQ2>SZTHENG0T04818ELSECLS:PRINT"I1ULT. CHOICE ON THE SUBJEC 

T "iClfi" 4 »;C2$ 

4838 PRIHT'WICH CfllEGORV DO VOU HRNT TO CHOOSE FROH" 

4e40PRIHT"l "iCll 

485ePRIMT»i 'iC2$ 

4855 PRINT"! RflNMH " 

4868 INPUT*ENTER Ti€ NUMBER OF VOUR CH01CE"jCH 

4878 IFCHaORCH>3CLS:GOT04838 

4898 NE=NEH:RmDOH 
4895 IFNDQ260frO488& 

4188 FORX=1T04: 

4185 P(X)=RND(SZ) 

4118 IFC(P<X))>2G0T04185 

4115 C(P<X))=C(P(X»+3 

412eHEXTX 

4138 fl=RND(SZ):IFC(fl)>eG0T0413e 

4135 R=RND(4) 

4140 FORX=1T04:C<P(X))=C(P(X))-3:NEXTX 

41^ F0RX=1T04 

41M fe$(Xi l)=fi$(P(X), 1) : ffi$<X, 2)=fi*(P(X), 2) 

4280NEXTX 

4210 fl2$(R, l>=fi$<ft, 1) :fi2$(fc 2>=fl$(a 2) 

4230 B2$=fl2*(fc2)+" •+S2*:B3$=B2*+° "+fe$(R.l) 

4240 C4$=fl2$(R,l)+" •+S1$:C3*=C4$+" "+fi2$(R.2) 

4241 GOSUB4950 : IFC1=2GOTO4500 
4300CLS:PRINTK56," " 
4318 F0RX=1T04:PRINTXj ". "; ft2$<X, 1) :NEXTX 
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4315 PRIHT"(EHTER Tl€ NW1B0? Wi CWMS OR 11 TO QUIT) 
4329PRINTB2$i:INPUTQ7 

4321 IFQ7=116OTO4800 

4322 IFQ7aora7>4GOTO43e0 

4330 IFQ7=RTHENCLS:PRINT§512, "RIGHT" :PRINTB3f:C(fl)=l:6OTO4900 

4340 CLS:PRINT§512, "WRONG" :PRIHTB3$:C(fi>=2:G0T04988 

4508 CLS:PRINT0256, ' " 

4510FORX=lTO4:PRINTXi". "fi2$(X,2):fCXTX 

4515 PRINT"(ENTER THE NUMBER VOU CHOOSE OR 11 TO QUIT)" 

452ePRlNTC4$j:INPUTQ7 

4521 IFQ7=11GOTO4800 

4522 IFQ7<10RQ7>4G0T045M 

4530 IFQ7=RTHENaS:PRINTe512, "RIGHT". PRlNTC3l:C(fl)=l:GOTO4900 

4540 aS:PRINTKl2,''Hia»«":PRlNTC3$:C(fi)=2:a)TO4908 

4^ >£=0:GOSl£8580 

4810 W=2 

4820GOTO9000 

4S«0 :F(KX=lTO4000:>£XTX:CLS:Q7=0:(fflTO4090 

4950 IFCH=3THENCI=RND(2)ELSECI=CH 

496eiOURN 

5M0 CLS:PRINTMM,"T«£ FALSE TEST" :PRINT 

5010 PRINT»THIS IS fl TRII FflSE TEST m ";Cl$i" « "iC2l 

5020 INPUT'ENTER THE NIHBER OF QUESTIONS VOU HfWT'i T 

5030 in>SZTHNaS:a)TO5018 

5945 FOR}{l=dTOT 

5050 G1=RND<2):G2=RND(2) 

5060 G3=RM)(S2):G4=RND(S2) 

5670 IFC(G3»0GOTO5060 

5080 IFG4=G3GOTO5860 

5090 IFG2=2GOTO5J00 

5100 IF61=26OTO5200 

5110 (1S;PRINT§512, ft$(63, 1); " ";Sl*i " "; fl$<63, 2) :PRINT 

5120 GOSUB5730 

5130 IFflNOlTI£NGOTO5700 

5140 GOTO5720 

52e0CLS:PRINTe512,ft$<G3,2);" ";S2$i" "ifl$(G3,l): PRINT 

5210 GOSUB5730 

5220 IFflNOlGOTO5790 

5238GOTO5720 

5380 IFG1=26OTO5360 
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522eaS:PRINT§512,ft$(Q2,i);" "iSlfi" ";fl$(G4,2>:l^INT 

5m wsmm 

5248 IFfiN<>2G0T(]S?Ml 

5350 60T05728 

5360aS:reiNTffil2,fi*<(j2,2);" ";S2$i" "ift$<G4,l); PRINT 
5378 G0SIB5738 
5386 IFfiN<>2K3TC67^ 

5390 miQsm 

5560 NEXm 
56006051^^ 

5620 W=3:a3TO9000 

5700 aS:PRINTI512, CHR*(22); "WRONG" :FORX=lTO1000:NEm:aS:C<G3) 
=2:flN=0:6OT(B500 

5720 aS:PRINTe512,CHRI<23)i "RIGHT" :FORX=1TO1008:HEXTX:CLS:C(G3) 

=l:ffl*=0:6OT(EM0 

5730 PRIMT"IS THE flHWE STATEMENT 1. TRl£ OR 2. FfLSE".PRINT"EN 

TER THE NUMBER OF VOLR CHOICE"; :INPUTflN: RETURN 

6968 N^ 

6010 FORX=1TO10 

6040 V=RND(SZ):IFC<V)>0THEN6OTO6040 

6045 C(V)=3 

6050T<X,l)='V:NE}aX 

6060 F£KX=lT0i8 

6070 V=RM)<i0) 

6080 Ta2)=V 

6030 IFX=iTHENH>TO6110 

6108 FOR)«=iTOX-l : in<X, 2)=T()0C 2)ThCNH)TO6070 

6105 tOTXX 

6110 »EXTX:CLS 

6226 FORX=1TO10 

6230 T$<X, l>=fll«T(X, D), 1) :T$(T(X, 2). 2)=fl$(T(X. i), 2):f€XT 

6300 J1=0 : J2=0 : PRINT, "NfiTCHING" 

6310 PRINT065, Cl$ ■.PRINT895, C2$ 

6320 Y=129 

6330 F(KX=1TO10 

6340PRINTiV>X;". ";T$<X,l):PRINT§Y+38,Xi". "iT$(X,2) 

6350 IFX=9 TJCN V=V+63ELSEY=Y+64 

6360NEXTX 

6364 PRINT" (ENTER 11 TO QUIT)" 

6365 TV$="ENTER THE NUMBER OF VOUR CHOICE FROH TJC CflTEGORV " 
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G78 PRINT88%,TV$;Cl$i iHWTJl 

6375 IFJi=llGOT064i5 

6376 IFJl<10RJi>iiTHENCLS:G0T06388 

6377 in$<Jl.l>=""TICNCLS:GOTO6380 

6380 PRlNT§96a "FROM THE CATEGORY 'i(2ti :lMnJTJ2 

6381 IFTI(T(Ji, 2), 2>=""THENaS:G0T06388 

6385 IFJ2=11MT06415 

6386 IFJ2<iORJ2>ilTHENCLS: G0T0639e 
6398 N=N+i 

6488 IFT(J1, 2)=J2THEH(1S:PRINT :PRINTKi2, "RIGHT "i :PRINTT$(Ji, 1) 

;" HATCHES HITH "iT$(J2,2):C<T(JLi))=i:T*(JLl)="":T$<J2,2>="": 
F0RX=lT0188».}EXTX:aS: IFN=>i86OTO64i5ELSEGOTO6380 

6418aS:PRINT:PRlNT§512," WRONG "; ;PRINTT$<Jl,i)i' HATCtCS HITH 
"; TI(T(Ji, 2), 2) :F0RX=lT018ee . NEXTX : T$( Ji, i)=" " ; T$(T( Ji, 2h 2)=" ° 
:Ca(JLl))=2:CLS:IF N=>10THENGOTO6415 
6411 6OTO6308 
6415 G0SUB8588 
6420 YV=4:GOTO9080 

7000 CLS:PRINT§346, "FILL IN THE BLAf*:" 

7810 I»PUT"i«H Mffift' QUESTIWe M VO.! l*WT"iW3 

7028 lFNO>SZGOTO7e08 

7050 FOR}«=lTa« 

78^ fi=ra©(SZ):IFC(A)>8K)TO7K0 

7080 R=RND(2> 

7090 IFR=lTHENZA$=A«(A,l)+° "+S1*:ZB$=A$(A,2) 

7100 IFR=2Tl€NZA$=ft$(A.2)+" "+S2$:ZB$=A$(A.l) 

7110 aS:PRINT:PRINT"FILL IN M. BUHK (ENTER HLP TO QUIT)" :P 

RM -.PRINTZflJi : INPUTAN$ iClS: IFAN$="HELP»GOTO7400 

7120 IFANI02B*TICN CLS:i=1?INT:PRINT:HiIHT,,"HK»«":PRINT:PRINT"T 

HE COHJECT fSOER IS:«:PRINT.PRINTa«i" "iZB$:PRINT»PLEASE FILL 

IN TJC CORRECT «6i£R":PRINTZA$; :INRJTm$:IFAN$O2BI(»T07i^L2 

C<fi)=2:aS:G0T0?3^ 

7130 C(A)=1:PRINT§537, CI«$<23)j "RIQiT" :F0K<=lT01^:ffiXTX 

7300 ffiXTXX 

7400 GOSUB8508 

7500 W=5:6OTO9800 

8500 F0RX=1T0SZ 

8501 IFC<X)=iTHENNR=NR+l 
^ IFC<X)=2Tl£Mfl*=WJ+l 
8583 C<X)^ 
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8594 NEXTX 

8519 :CLS:PRIHTNft*i " VOU GOT ";Nfc" flNSHERS RIGHT t "ittf HROHG 

,':NR=0:NH=8:RETURN 

9889 T=9:PRINT§249,"1. REDO THE PREVIOUS QUIZ":PRINT9484,"i RET 

URN TO QUIZ HENU":PRINTM68,"1 RETURN TO SUBJECT l€NUVPRINTe53 

L" "; :INPUT"ENTER VOUR CHOICER T:IFT<10RD3THEMG0T09889ELSEaS: 

(»(TGOTO9M1,2590,5 

9991 0NW60T03989. 4899> 5899, 6899. 7999 

11999 F0RX=lTOSZ:REflDft$(J0 l),ft$:NEm:RETURN 
12989 FOR X=lTOSZ:REflDft$(X, 2) :NEXTX:RETURN 

12989 FOR X=lT0S2:REflDfl$(X,l>,fi$a 2): NEXT: RETURN 

13599 HE=RND(S2) :R2$<X, l)=fl$(iC, 1) :fl2f (X, 2)=fl$(l€, 2) :HE=9:SU=2:R 

ETURN 

1^89 F0[«=lT018:PRINTfc « "; T(X. 1), T<X, 2) :NEXTX 



DISK DRIVES 
Now in Stock 

The TRS-80 Software Exchange is pleased to 
offer single and dual Percom Qisk Drives for 
your TRS-80. These are reliable, high quality 
drives, fully compatible with the TRS-80 and 
Radio Shack's drives. 

Enjoy these advantages: 

• Fast access time 

• 110K/40 tracks vs. Radio 
Shack's 89K/35 tracks 

• Lower cost — save $100 over 
comparable units 

• Available NOW! 

Single Drive $399.00 
Dua^ Drive $799.00 

Cable (required) — $29.95 

NOTE: All disks require TRSDOS software, available only from Radio Shack. 

T|CTRf-60 lefluKifC EKchonQc 

W 17 Briar CliM Drive Milford, N«w Hampshirs 03055 



34 







Lance Mickius' 
ST80-the Smart 
Terminal Program- 
just got SMARTER ! ! 



ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 

USING ST80D, your TRS-80 can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-80 can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tabJes to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request. 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 



ST80D is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

If you're looking for a professional quality product, 
not an amateur program, then order ST80D today! 



For32K 
disk systems 
$79.95 
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NIM [nym] Old English, verb, obsolete 1. to take, 
frequent use in 15th Century. 2. slang, after 1600, 
to steal. 



by James Garon 




*^^^P^ 



On her honeynnoon on the Italian 
Riviera in 1407, the Duchess of 
Santa Paravia invented a game 
taking gold coins out of three 
plates. When her husband died the 
following year after a cold winter in 
a drafty castle, she returned to her 
native Britain, where she intro- 
duced the game, NIM to the royal 
court and it became the fad of the 
social season in 1409. The game 
didn't spread outside the royal 
court as the common people never 
even saw a gold coin, much less 
owned any. Therefore, when the 
court began to play Hunt the 
Wumpus in 1410, NIM was 
forgotten. 

The game survived only in a brief 
description in the diary of one of 
the queen's ladies in waiting (who 
invented her job title after waiting 
for hours while the queen played 
NIM with the duchess.) One 
hundred eighty-nine years later a 
descendent of the maiden. Pilfer 
Babbage, came upon the diary in 
an old trunk. The game fascinated 
the penniless boy of twelve, and he 
invented a version using pebbles 
instead of gold coins. However, 
since he desperately longed to play 



the original, and since the game 
had taught him to take things, he 
embarked on a successful career as 
a pickpocket, stealing gold coins 
from the pockets of the nobility. 

Pilfer was a friendly fellow ... a 
natural leader among his cohorts. 
He introduced them to NIM and 
they took to it with delight. Soon 
they merged the language of their 
hobby with that of their profession, 
and the long-forgotten verb "nim" 
came back into fashion with a 
subtle change change in meaning. 
However, when Pilfer Babbage 
was finally caught and hanged in 
1671 at the ripe old age of 
eighty-five, his fraternity honored 
him by changing the name of their 
vocation to "pilfering". 

Pilfer's great-great-grand neph- 
ew, Charles, adapted the game to 
the analytical engine in 1833 as the 
second computer game (after Star 
Trek). Charles then went on to 
distinguish himself in the family 
tradition by inventing cost over- 
runs In government contracts, and 
the game of NIM continued down 
to the present day in a myriad of 
forms. 
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2 CLEflR200:RflNDOI1:DEFSTRT-2:W==CHRf(191):V=W+W:U=W+CHR* 
(i88)+CHR*(i88)+H : T=M+CHR$(i43)+CHR$<i42)+W : T1=CHR»(15 
9)+CHR*<i59)+CHR$<142)+CHR$<175) :H1=CHR$(149) :X=V+W1+W 
: Ul=CHR*(189)+CHRf (189)+CHR$<188)+CHR*<190> ; V=CHR$<i70 
) : DII1fl<2, 4). V<i) : CLS : DEFlNTft-S : GOTO20 

4 JfllCS GflRON (714) 533-4726 926 M ROMNEYfl «6 flNRHEI 
M Cfl 92861 

5 F0RI=8T02:fi=R(L 4) :FORJ=0TO3:B=INT<ft/2) :fl<L J)=fl-B-B 
: R=B : NEXT : NEXT : FORJ=0TO3 : fl<3, J)=e : FORI=0TO2 : fl(3. J)=fl<3 
, J)+fl<L J) -.NEXT: NEXT :S=-l:FORJ=3TCI0STEP-l:R=fl<3, J): IFfi 
OINT(fi/2)*2S=J :RETURNELSENEXT : RETURN 

6 2=1 NKEV$ : IFZ=" "THEN6ELSEH=RSC<2) : RETURN 

10 PRINTe28."- N I M -":PRINT"INSTRUCTIONS ? 

11 GOSUB6:IFH=89THEN100eELSEIFH=78THEN12ELSEll 

12 PRINT: PRINT ''HUMflN flGfilNST IftC^HINE <1) OR HUHflN RQRl 

NST HUMflN (2) ? 

14 6OSUB6:IFHO49fiNDH<>50THENi4ELSEN=K-48:FORl=0TOl:PR 

IHT-B^TtR NfiME OF PLRVER"i :IFN=2THENPRlNTl+ii :INPUTV(I 

):NEXT:ELSEINPUTV<0> 



For an example of the slang use of "nimming", see Part of Lucian 
Made English, by Jasper Mayne, (London, 1664), page 35. 







YOUR TURN ROGER 



<TAP THE SPACE-BAR TO PLAV 
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15 E=e:IFN=2THENE5RW)<2)-l 

16 CLS:G0T05e 

20 PRINT884,CHR$<22)"- H I H -":PRINTe908,"aflP THE SP 

flCE-Btt? TO PLflV) 

28 FORI=0TO2 : fl< L 4)=Rr«)<15) : fCXT : FORI =1T04M : NEXT : 2=ST 

RING$<160, 127+RND<64) ) : PRINTei92, Z; 2; : GOSUB970 : Z=INKEV 

$ : IFZO" "TI€N30ELSECLS : GOTOie 

50 CLS :PRINTCHR$<23> : FORI=0TO2 : fl( L 4)=2+RND<i2> : NEXT : I 

Ffl<0, 4)=fl(L 4>0Rfl<e, 4)=fi<2> 4)0Rfl<L 4>=fi<2, 4)THE^50EL5E 

G0SUB5 : IFS<1THEN50ELSE6OSUB970 : R=410 : K=l 
S F=0 : P=R : 0=fl(K, 4) : GOa«%0 

56 PRINTeO. :PRINT§76, "VOUR TURN »; : IFN=lTHENPRINTV(0)i 
ELSEE=l-E:PRINTV<E)i 

57 GOSUB6:IFHO8THEN65ELSEIFK=0THEN57 

61 IFF=lF=0:fl(K;4)=O 

62 CKKUB970:K=K-l:O=fi<K, 4) :R=R-20:P=R:M)SUB960.6OT(e7 

65 IFH>9THEN70ELSEIFK=2THEN57 

66 IFF=lF=0:fl<IG4)=O 

67 GOSUB970 : K=K+i : 0=fl(K, 4) : R=R+20 : P=R : GOSUB960 : G0T057 

70 IFH>10THEN75ELSEIFfl(K,4)=0THEN57 

71 IFF=0F=l:O=ft(IC4) 

72 fl<IC 4>=fi<IC 4)-l : GOSUB970 : G0T057 

75 IFHO22flMDHOi2THENMELSEIFF=0Tf£N57ELSEGOSUB970 .FO 
RI-0TO2 : IFfl( 1, 4>=0rCXT : 6OTO100 

76 IFN=lTHENPRINTe0> :PRINT§76, "MV TURN: " :6OSUB700:QOTO 
55ELSE55 

88 IFHO91THEN57ELSEIFF=0THEN57 

81 IFfl(K,4)=OTHEhF=0:GOTO57 

82 fl<K, 4)=ft(K, 4)+l : IFfl<K, 4>=0THENF=8 
84 G0SUB97e:G0T057 

100 PRINTM, :IFN=2THENPRINT084,Y<E>" HII«!"ELSEPRINTe6 

4,V(0)" BERT Tf£ COTPUTER' 

105 F0RI=1T02E3 : NEXT :PRINTe898, "(PRESS SPfCE-KK TO TR 

Y ftGflIN)":6OTO30 

200 PRINT(?0, :PRINT088/'I WIN":(»TO105 

700 (XBX5: IFS<0THEN750ELSEFORD=0TO2: IFft(D, S)=0THENNEX 

TELSEfl<D, S)=0:FORC=0TOS-l:fl=fl(2, C) : IFfl=INT<fl/2>*2THENN 

EXTELSEfltD, C)=l-fl<D, C) :^EXT 

Tie G=fl(D, 4) : fl<D> 4)=0 : FORJ=0TO2 : fl<D, 4)=fi<D, 4)+fi<D, J)*2 

IJ:NEXT:M^fl(D,4) 
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728 R=39&t2e*D:P=R:K=D:6OSUB960:FORL=G-iTOnSTEP-i:fl<D, 

4>=L:GOSUB978:NEXT:FORI=0TO2: IFftd, 4)=0THENNEXT : 6OTO20 

8ELSERETURN 

758 D=RNDG)-i:6=ft(D,4):IFG=8THEN758ELSEM=G-RND(G):G0T 

0728 

888 PRIMTeP, T; : Z=H+V+M1+H ; PRINT8P+64, 2; : PRINT§P+i28, 2; 

:PRIIiT8P+192,U;: RETURN 

818 PRIHTiP,V;CHR*<175);Hi :2=V+V+H:PRINT8P+64,Z; -.PRINT 

8P+128, Zi :PRINT8P+192. Vi CHR*<i98)i H; RETURN 

^■8 PRIMTiP.T; :PRINTeP464,HiCHR$<i43);CHR$(iB)iW; :PRI 

lir8P+128,H;V;Vi :PRINT§P+192,Ui : RETURN 

838 PRINT§P,Ti :Pi:[NTeP+64,HiCHR$(159)iCHR$<123)iMi :PRI 

irriP*128,Xi :PRINTeP+i52,Ui : RETURN 

mS PRINTK', U; CKI«(i75)i CHR$(i59)i H; :PRlNT§P+64, H; CHR* 

<138)iCHR*<i33>;H; :PRINT§P+128,X; :PRINTeP+192,V;CHR*<l 

89>;H; -RETURN 

858 PRINT8P,T; :PRINT§P+64,H;CHR*<i38)iCHR$<143)iH; :PRI 

lfT8P+128,X;:PRIHT§P+i92,U; -.RETURN 

8S8 PRINT§P,Ti :PRlNT§P+64,H;CHR$<138>;CHR*<142)iH; :PRI 

IIT§P*128> Hi Vi Mli Hi :PRINT§P+192. Ui : RETURN 

878 PRINT8P,Ti :PRINT§P+64,Xi :PRINT§P+128,Xi :PRINTiP+i9 

2,ViCHR$<189>iUi:RETURN 

888 PRINT§P,Ti :PRINTiP+64,HiCHR$(i38)iCHR$aB)iHi :PRI 

MreP+128, Hi Vi Hii Hi : PRINT8P+i92, Ui : RETURN 

©8 PRINTeP,Ti :PRINT«>+64,HiCH?$<i38)iCHR$(i32)iHi :PRI 

mtP*i2S, Xi : PRINTeP+i92, Ui : RETURN 

988 PRIHT§P,Tii :Z=Hl+Hl+H+V:PRINTeP+64,Zi : PRINT8P+i28, 
Zi :PRINT§P+192,Uii :ISTll?N 

918 PRINTgP, Hi CHR*(175)i CHR«(159)i Hi : 2=H+V+Hi+H : PRINTS 

P+64,Zi :PRINT§P+128,Zi :PRINTeP+i92,Hia«$(19e)iCH?*<i8 
9)i Hi: RETURN 

928 PRINT§P,Tli :PRINTeP+64,HliCHR*<159)iCHR$<143)iVi :P 

RINT8P+i28,HliHliVi :PRINTeP+192,Uli : RETURN 

938 PRIHTiP, Tli :PRINT§P+64. Hii CHR$<i59)i CHR$<143)i Vi :P 

RINT§P+i2& Hii Vi Vi : PRINTeP+i92, Uli : RETURN 

948 PRINT§P,CHR*<159)iCH»<159)iHiCHR$(175)i :PRINT§P+6 

4, Hii Hii CHR$(143)i Vi :PRINT8P+128, Hii Vi Vi :PRINT§P+192, C 

HR$<189>iViCH?$<190)i :RETl«N 

958 PRINTeP.Tli :PRINT«>+64>HliHliCHR$a43)iCH»<175)i : 

PRIHTeP+128, Hii Vi Vi : PRINTeP+192, Uli : RETURN 
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960 Q=i5260+P : FORI=0TO192STEP64 : F0RJ=8T06STEP2 : POKEft+I 
+J, 319-PEEK<Q+I+J) iNEXT :NEXT:RETURN 

970 F U I=6T02 : P=2M+20*I : Cim( L 4)+iG0SUB8^ 818, 828, 82 
0, 840, 850, 860, 878, 888, 8^, 9M, 918, 928, 930, 948, 958 : fCXT 
: RETURN 
1000 PRINT§64,a«$(202>"NIM IS PLfiVED WITH THREE PILES 

OF OBJECTS. EACH PLflVERIN TURN SELECTS ONE PILE fiND R 
EHOVES flS MfiNV OBJECTS flS DESIRED (fiLL OBJECTS MflV BE 
REMOVED FROM THE CHOSEN PILE, OR ONLY SOI€~BUT VOU MU 

ST TfiKE fiT LEAST ONE OBJECT, AND ONLY FROM'j 
1802 PRINT" ONE PILE). ":PRINT»THE PLAYER (OR MACHINE) 
MHO TAKES THE LAST OBJECT IS THE WINNER. ":PRINT"USE TH 
E "CHR$<93)" m> "CHR$(94)'' KEYS TO SELECT YOUR PILE, A 
ND THE "CHR$<92)" KEY TO ra«ftEOBJECTS. (T« •CHR$(91) 
« KEY IS FOR CHANGING YOUR MIND. ) "; 

100? PR1NT"V0U HILL KNOW 

UHICH PILE YOU ARE DIMINISHING SINCE IT HILL BE SHOHN 

AS A HHITENUMBER ON A BLACK BACKGROUND, "i 

1004 PRIHT"WHEN THE PILE IS DECREASED TO YOURSATISFACT 

ION, PRESS THE SPACE-BAR. GOOD LUCK!": G0T0i2 



Recooimended for 
small businesses 





Small 

Business 

Bookkeeplif 

\ by Miller Microcomputer Services 

The Dome BookkeepingX a»d Roger W. RobitaiUe, Sr. 

System, fully compatible 
with your TRS-80 disk 
system! Optional reporting/ 
to line printer; supports cash system of Available for 32K 

accounting, applying expenses to any Disk Systems — $24.95 

of the forty-two accounts. V^C TRI-SO foflUICIfC EilCllClil9C 

■^^B 17 Briar Clif I Drive Milford, New Hampshire 030SS 
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^ Amidliroiidl INIiimri 

The newest version of TRS-80's first animated 
graphics game - Android NIM - now with more 
animation and sound! 

Level II, I6K- $14.95 

Here is a computerized 



reptilian version of 21 
complete with arrogant 
snakes and appropriate 
sound. 

Level ll,16K $14.95 



Two in one: Game of 
Life, at an astounding 
100 generations a min- 
ute, plus Battle of Life 
with animated creatures 
and sound. 

Level II, 16K $14.95 



Cubes gives you the solution to Instant 
Insanity®*, a numbered block puzzle. Drive 
your computer nuts trying to figure how to 
arrange the 4 blocks on your screens. Each side 
shows four different numbers. Level II, I6K 

<( Instant Insanity® is a Parker $9.95 

Brotliers registered trademark 

TfETRI-80 lofluKifc CKchcifige 

' 17 BRIAR CLIFF DRIVE MILFORD, NEW HAMPSHIRE 03055 
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HCME 
APPUANCE 
RECORD SYSTEM 

byRayHeraid 

There you are ... your toaster is smoking up the kitchen and 
you're trying to remember where you bought the damned thing. 
Now, where is that sales slip? The TV is acting up again; maybe 

it would be cheaper to buy a new set rather than pour more 

money into that bomb. Just how much have you spent on it, 
anyway? Worst of all, while you were on vacation, your stereo 

system was ripped off . . . the police need the serial numbers. 
Do you know what those numbers are? 



We live in a technological age 
with a seemingly endless supply 
of gadgets. Your electric razor, 
radio/alarm, washer & dryer, 
T.V., stereo, electric drills and 
saws, blender ... to name a few. 
The list goes on, and along with 
the list go the inevitable ques- 
tions we've all had occasion to 
ask ourselves: Where did I buy 
it? What did I pay for it? Where 
did I have it fixed last time? .... 
In spite of all our technologival 
wonders, the questions usually 
remain unanswered. Enter The 
Appliance/Equipment History 
File. 

The Appliance/Equipment 
History File records and main- 
tains pertinent information on 
household appliances and mach- 
inery. Included are the name of 
the item, date of purchase, place 
of purchase, price, and serial 



number. In addition, there are 
provisions to add up to five 
service-related entries for each 
appliance. These entries provide 
data on: reason for service, place 
of service, date of service, and 
cost. If more than five service 
entries should ever be required 
for a particular item, a second (or 
more) complete record can be 
built allowing for five more 
service entries. Of course, any 
item requiring more than five 
service entries should be a 
serious contender for Sanford 
and Son. Once compiled, all data 
pertaining to household appli- 
ances is stored on cassette tape, 
and can easily be displayed or 
updated as needed. Data is 
displayed in easy to read screen 
formats, and the program pro- 
vides for self-explanatory 
prompting 

4'> 



Upon loading, the program 
will inquire as to whether you 
desire to examine an old file or 
create a new one. If you have a 
large number of appliances, it 
may be a good idea to create 
several data files which have a 
logical connection to each other. 
For example, a file for kitchen 
appliances, one for bathroom 
appliances, one for home enter- 
tainment equipment, and so on. 
Besides providing structured 
data files, this method will also 
help to reduce tape loading time. 

If a new file is to be created, 
the program will prompt you to 
enter the required information. 
If an existing file is to be 
examined or updated, the file is 
read into memory. Each file is 
named, and a file name verifi- 
cation is performed for each l/P 
file. 



Once the date has been 
entered or loaded, an appliance 
Name List/Option screen ap- 
pears. This will contain the first 
14 entries and a list of options. 
At this point new records can be 
added A, or existing records can 
be listed for examination L or 
updated U, the entire file saved 
on tape S, or the program ended 
E. If more than 14 entries exist in 
the file, one other option be- 
comes available: M for more, 
which will list the next 14 entries. 
All options except E will return 
control to the Name List/Options 
screen upon completion of that 
option. 

The add option A simply 
passes program control to the 
record add subroutine. Use of 
the list L or update U option 
produces an Appliance Data 
Screen which shows all basic data 



3oft5iae. 

Rush me the next 12 is 

DUSA bulk-$15 1 yr. aS28-2 yrs. 

DUSA first class $22 lyr 

D APO/OVERSEAS surface $22 1 yr 



POBox68 
Milford, NH 03055 

your BASIC eoftwar* mcgazin*" 

issues of SoftSide. 



nCANADA/MEXICO$22 1 yr 

DOVERSEAS airmail $27 1 yr. 
Please remit in US funds ONLY 



vnA Credit Card 



Telophon0 your chargo card ordar! Call our 
Subscription office Monday through Friday 
9:30 to 5:30 (Eastern tinrte) at 603-673-5144 



Exp, Date. 
Signature« 

Name 

Address 

City 



.Interbank #(M/C only). 



-State- 



.ZIP. 
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for the item, plus up to five 
service related entries. If 
updating, three options are 
available. Service entries can be 
added; the entire record can be 
deleted, or control returned to 
the Name List/Options screen. If 
a record is deleted, subsequent 
Name List/Options screens will 
show its slot tagged *DELETED. 
Physical deletion will not occur 
until an updated tape is created. 

One final note: the program 
is initially setup to accept up to 
28 entries for each Data File. 
This limit is the result of working 
within the memory confines of a 
16K machine, and should be 
more than adequate for most 
households, especially if the 
separated file method mentioned 
earlier is used. However, for 
anyone with a 32K or 48K 
machine, a few simple modifi- 
cations will allow you to increase 
this parameter. 

Change the DIM limits in 
statement 80 to the desired file 
size using increments of 14. 
Change the subscript delimiter in 
statements 117 and 1240 to the 
number specified in the DtM 
statement. For a 48K machine, 
you could have 150 to 250 entries. 
Of course, anyone who has that 
many appliances probably has 
their own 370 and won't need this 
program. 

Also, it should be noted that 
the field sizes specified in tbe 
data entry prompts are used as 
guides and are not absolute. 
Their purpose is to keep the 
maximum record size for each 
entry below 255. For example, if 
the Item Name does not take all 
Impositions allotted, the "extra" 
positions can be used elsewhere. 



The Little 
Book of 
BASIC Style 

by John M. Nevison 

Here is the ideal reference for 
anyone who wants to write better 
programs in BASIC. The Little 
Book of BASIC Style is suitable 
for all levels , . . from junior high 
school student to research 
scientist. A work meant to be read 
and reread. Achieve fluency in 
computing. 

Indexed, illustrated. 151 pages. 
$5.95 + $1.00 handling 
Tlll»iO lofluiQfc SKchctnoe 



T»« 



7 BRIAR CLIFF DRIVE 




COTCHA 
DOUIfl ? 



Call SoftSide's TRS-80 Mottine. 

From 7 to 9:30, every Tuesday 
evening (EST), our software 
editor will be '^on-line'* offering 
programming assistance to 
Level I and II users In search of 
acure. 



Hotline 



603-673-5144 
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20 ' HOME flPPLIfiMCE RECORD SVSTEM 

38 ' C(F«1GHT FEB. 1979 

40 ' RflV HEROLD SOFTHfiRE 

58 ' 8368 SHflDY GROVE CIRaE 

60 ' MfWBSfB Va 22110 

78CLEf)R5e88 

88 DIH »»(28),PDI(28),PP$(28>,PR$(28),SN$<28),D$<2&5),R*<28,5) 

,S*(28,5),C$(28,5> 

% ' 

97 ' PRINT flPPLIflNCE LIST SCREEN 

% ' 

168 G05UB 1888 

110CLS 

113 I = 7:L = 1 

115 PRINTil8, "ftPPLIfWCE/^QUIPHENT HISTORY FILE":PRINT 

117 IF<V+7)>=28THENI=7:L=1 

120 P = 188 

125 FOR V=l TO I 

127 IF«M<V)=-99Ett)99"THEMi48 

130 PRINT V;-- "iNH$<V):P = P + 64 

135 PRINTfP, <V+7);"- 'iM«<V+7) 

148 NEXT Y 

158 PRINT STRING$(64,"+») 

168 PRIHT*662,'--0PTI0NS~" 

178 PRIMT'fi = ADD MORE ENTRIES U = UPDATE AN ENTRY 

175 PRINT'L = LIST DflTfi FOR ENTRY S = SAVE DRTfl ON Tfl 

PE" 

188 PRINT"E = END PROGRAM RUN" 

185 IFV<XTHEM>RINT§867,"M = LIST MORE ENTRIES" 

198 0$=" ":INPUT"ENIER OPTION DESIRED"; 0$ 

208 IFO$="E"THENCLS:STOP 

218 IFO$="M"THEN L=L+14:I=I+14:aS:60T0115 

215 IFO$="A"THENaS:PRINT:GOSUB1600:GOTO110 

220 IF((O$="U">OR<O*="L"»Tf€N250 

238 1FO$="S"THEN900 

240«)TO190 
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248 ' 

249 ' LIST flPPLIflNCE ITEM SCREEN 

250 ' 

252 N=e:PRINTK96, "ENTER WttBER Cf ENTI?i' DESIRED"; .INPUTN 

255 IF«N>X)0R(N<l)>TI£W>RINT§e96, •** ITEM mSEk IJCIMECT - fS 

TRV"i ;FORJ=lTO890:NEXTJ:eOTO252 

260 CLS:PRINT§64, "ITEM NflME. ..... . . ";NM$<H):PRINTei0i, "ITEM COST 

"iVflL<PR*(N» 

265 PRINT§128, "PlKOfi^ FROM. . . ";PW(N):PRINTgl65, »P«ffiHftSE DfiT 

t...."iPD$(N) 

278 PRINT'SRIflL NUMKR. . . . "; SN*(N> 

275 PRINT :PRINTSTRI«3$<64, "+') :ffiINTM04, "SERVIffi HISTORY" 

277 PRINTM50, "DfiTE'i :PRINT§462, "RERSON"; :PRIHT§482, "SERVICED BY 

";:PRINT§506,"COST'' 

280 F=576:F0RZ=1T05 

282 IF((l»<N.Z)="*»)fM)<R*(HZ>="*f»THEN290 

284 IFLEN(D$(N,Z)+R*<N,Z)+S*<N,2>+C«(N,Z))=0THEN290 

286 PRINT0F. DKH Z); :PRINT§(F+12), R«N. Z); :PRMe<F+34), S*(N, Z 

)i :PRI«T8<F+56),VflL<CI<N/Z)) 

288 F=f+64 

29eNEXTZ 

295 IFO$="U"THEN380 

296 PRINT§960, "PRESS ENTER TO CONTINUE"; : INPUTEt : QOTOii0 

297 ' 

298 ' UPDATE AN ENTRY 
2S9 ' 

388 0=e;PRINT8896/"l = ADD SERVICE ENTRY 2 = DELETE RECORD 3 
= EXIT";:INPUTO 
318 IFO=3TI€N110 

328 IF((0<i>0R<0>3»THENPRINT8896,"** INVALID OPTION - RETRY"; ST 
RING$(36, " " ) : FORJ=1TO800 : NEXTJ : GOTO380 
340 IFO=2THENNM*<N)="*DELETED":(jOTOil0 

358 TFO=lTHENGOSUB400:aS:PRINT:X=N:GOSUB1905:SM=l:GOSUB1750:X=X 
T:SH=0:S)TO110 

398 CLS:PRINT"PR0(3RAM ERROR AT 390" :STOP 

396 ' 

397 ' DETERMIff NUMBER OF SERVICE RECORDS 
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398 ' 

488 V=e:F0RZ=lT05 

418 IF(«LEN(R$(N,Z)+S$<N,2)+I»(N,Z)+C$(N,Z»=8)0R«D$<N,2)="* 

■ )flND(R«(N, Z)="*' )flND(S*(H. Z)="*" ) ) ) )THEN438 

428 Y=V+1 

430 NEXTZ 

448 RETURN 

499 CL5:PRINT'PR0GRM1 ERROR AT 499":ST0P 

896 ' 

89? ' LOOP TO WITE NEH 0/P TAPE 

898 ' 

988 CLS:PRINT:INPUT"HHflT DO VOU HISH TO CflLL THE 0/P FILE"iN$ 

983 PRINT :IlftJT"REflDV CASSETTE - PRESS ENTER"; E$ 

985 PRINTi-l,N$ 

918 V=X:F0IG{=1T0V:G0SUB1768:NEXTX 

922X=V+1:W1$(X)='99END99":G0SUB1?68:NI1I(X)=" ":X=V 

M0 GOTOlie 

996 ' 

99? ' READ OLD FILE OR CREATE NEN ONE 

998 ' 

1808 aS:PRINT 

1010 PRINT "DO VOU NISH TO CREATE A NEH FILE OR EXfflllNE AN" 

1020 PRINT "EXISTIWj ONE?": PRINT 

1830 INPUT "REPLV: NEW OR OLD"; T* 

1040 IF LEFT$(T*,i) = "N" THEN 1588 

1050 IF LEFT$(T$,1) O "0" THEN 1038 

1188 PRINT: INPUT "READY CASSETTE FILE - PRESS ENTER"; El 

1110 INPUTt-LTf 

1120 PRINT :PRIMT "FILE TO BE READ IS ■;T$ 

1130 PRINT:INPUT "REPLV: CONTINUL RETRV OR STOP'iRt 

1140 IF LEn$(R$,l) = "S" THEN STOP 
1150 IF L£FT*<R*.l) = "R" THEN 1018 
1160 IF LEFT$(R$a) O "C THEN 1138 
1200X = 8 

12ieX = X*l 

1220 IHPOTi-1, NW<X>,PDI<X),PP$<X),PR»(X),SHI(X),M<X.1),R*<X,1 

), S$(X, 1). C*(X, 1), D$(X. 2>. R$<X, 2), S$<X, 2). CKX, 2), Df (X. 3). R*<X, 3 
), SI<X, 3), CSCX, 3), D$(X, 4), R$(X, 4), S$<X, 4>, C$(X, 4), D$(X, 5)/R$(X, 5 
),SI<X,5).C»<X,5) 
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1228 IFNH$(X)="99END99"THE»fl1l(X)=" ":X=X-i:XT=X:©TO 1999 
1248 IF X = 28 THEN 1999 
1258 GOTO 1210 
1566 ' 

1510 ' ADD DflTR F» ffiW WLIflfCE ITEH 
1520' 

1530 K=0: as : PRINT 
1680 X=X+1:V=0 

1610 IVm "ENTER ftPPL/EQUIP NflfE (16 POS) «iNltt<X) 

1620 II«JT "ENTER PlKCIflSE DftTE (W-'DD/W) "iPD*<X) 

1620 IMniT "ENTER PL«£ PURCH6ED <14 POS) "; PP$<X) 

1640 WUT "ENTER PUKmSE PRICE ";P 

1645 PR$<X) = STR$(P) 

1650 INPUT "ENTER SERIFS. NUHBER ";SN$(X) 

16^ PRINT:RRINT "IS ABOVE DfiTfl COaSCTLV ENTERED?" 
1665 R*=" ": INPUT "REPLV: "itStRNO";R$ 

1678 IF LEFT$<R$,1) = °N" Tf€N CLS: PRINT .GOTO 1618 
1680 IF LEn$(R$,l) O "V" Tf€N 1668 

1780 PRINT: PRINT "DO VO) NISH TO ADD A SERVICE<^PAIR REC(M) TO 

THE ABOVE?" 

1785 E$=" "-.INPUT "REaV: VES OR NO"; E* 

1710 IF LEn$(EI,l> = "V" THEN GOSUB 1988 

1715 IF«LEFT$<E$,1) O "Y") m <LEFT$(E$,1) O -N"))THEN 1785 

1720 GOSUe 1750 

1725 CLS:PRINT 

1730 PRINT "DO VOU WISH TO F«)D WCTtCR ITEH TO THE FILE?" 

1735 E$=" ": INPUT "RERV: VES 0? fKI";E$ 

1746 IF LEFT$(E$,1) = "V" THEN CLS: PRINT: GOTO 1608 

1745 IF LEFT$(E$,1) O "N" THEN 1735 

1746 XT=X:H)T(a.999 

1747 ' 

1656 ' CHECK TOTAL BLOCK LENGTH 

1749 ' 

1750 Tl=0:T2=0:Ti=LEN(NI1$(X))+LEN(PD$(X))+LEN(PR$(X))+LEN(PPI<X) 
)+LEN<SN$(X» 

1752 F0RZ=1T05 

1754 T2=T2+LEN(Df(K,Z)>+LEN(R$<X,Z))+LEN<S*(X.2»+LEN(C$(X,Z)) 

1756 NEXTZ:TL=T1+T2 
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1757 IF«SH=i)flND<TL>255))THENG0SUB2ie8:(30T01?59 

1758 IFTL>255THEN188e 

1759 RETURN 

1760 ' 

1761 ' CHECK FOR NULL STRINGS. HRITE OUTPUT BLOCK 

1762 ' 

1763 IFNH*(X)="*DELETED"THEN1789 

1765 IF LEN<Wtt(X)) = 8 THEN Nt1$(X) = "*" 

1766 IF LEN(PI)$(X» = 8 TICN PD$(X) = "♦" 

1767 IF LEN<PPt(X)) = 8 THEN PP$(X) = "♦" 

1768 IF LEN(PR$<X)) = 8 THEN PR$(X) = "*" 

1769 IF LEN<SN$(X)) = 8 THEN SN*<X) = "*" 

1770 FOR 2 = 1 TO 5 

1772 IF LEN(W(X,2)) = 8 THEN D$aZ) = "«" 

1773 IFLEN(R$(X,Z)) = 8TI€NR*(X,Z) = "*» 

1775 IF LEN(S*(X,Z)) = 8 THEN S*<X, Z) = "♦" 

1776 IF LEN(C*<X,Z» = 8 THEN C*(X*Z> = "*" 
1778 NEXT Z 

1780 PRlNTt-L lltt<X),PO»(X),PPKX),Pf»(X>,SNI(X),D*(X,l),R*(X,l 
), SI(X, 1), C*<X, 1), l»<X, 2), R$(X, 2). S$(X, 2). C*<X, 2), D$<X, 3), R$(X, 3 

>, S*(X, 3), C*(X, 3>, D*(X, 4), R$<X/ 4), S$(X, 4), Cf (X/ 4), D$(X, 5), R$(X, 5 
>,Sf<X,5),Cf(X,5) 
1789 RETURN 
IW ' 

1798 ' H-OKSIZE ERROR 

1799 ' 

1808 CLS:PRINT 

1818X = X-1 

1820 PRINT "THE tiflXIHUH TAPE BLOCKSIZE OF 255 BVTES HflS BEEN" 

1830 PRINT "EXCEEDED. THIS IS PROBflBLV fi RESULT OF ENTERING" 

1848 PRINT "NflTES FM> DEa3?IPTI«6 Lff?GER imi SPECIFIED ^" 

18M PRINT »TI€ DflTfi ENTRY PRWT. " 

1M0 PRINT "flL DfiTfl FOR THE LAST ITEM HIBT BE ffi-ENTERED. " 

1870 PRINT: IWW'PffiSS ENTER TO C(»ITIHIE";E$ 

18^ CLS:PRIHT:«)TO 16^ 

1896' 

1897 '(«» flPPLIfflCE SERVICE fSC«»?DS 

1898 ' 

1980 as : PRINT :V=0 
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1985 V = V + i: IF y > 5 MN V = V - 1: GOTO 19M 
1918 INPUT "ENTER DATE SERVICED (WVDD/W). . . . "i MCX, V) 

1912 imn "ENTER SERVICE REffitW (14 P(5) "i R$(X, V) 

1914 INPUT "ENT0? PLflCE OF SERVICE (12 POS). . . "iSIOC V) 

1916 INPUT "ENTER SERVICE COST ";C 

1918 C$(X,V) = STRKC) 

1^0 F1?INT:PRINT "IS MTfl ENTERED COHJECTLV?" 

1^ E$=" »: INPUT "REPLV: VES OR NO";E* 

1924 IF LEFT$(E$,1) = "N" Tt€N CLS: PRINT: GOTO 1916 

1926 IF LEFT$(E$,1) O "V" TI€N 1922 

1930 PRINT: PRINT "DO VOU WISH TO fiDD WOTJCR SERVICE ISCOig)?" 

1935 E*=" ":IfPUT "REPLY: "^S 0? W3"iE$ 

1940 IF LEFT*(E$,1) = "Y" TffiN CLS: PRINT: S)TO 1^ 

1945 IF LEFT$(E$.l) O "N" THEN 1925 " 

1950K)TO19^ 

1975' 

1976 ' CfCCK FOR MfiXimtl SERVICE ENTRIES 

1977 ' 

1980 CLS: PRINT 

1981 PRINT "Tl€ mXIMW OF FIVE SERVICE ENTRIES PER RECORD" 

1982 PRINT "HflS BEN EXCEEDED. IF VOU HISH TO fiOO MORE SERVICE" 

1983 PRINT "ENTRIES, VOU MUST CREATE fi NEH RECORD FOR THE" 

1984 PRINT "fiPPLIfflCE/EfflJiPICNT DESIRED. ": PRINT 

1985 INPUT "PRESS ENTER TO CONTINUE"; E$ 
1998RETU9< 

19»KTURN 
2m CLS:PRINT 

2110 PRINT'THE MfKKWH H.OCKSIZE OF 255 BYTES HflS BEEN EXCEEDED 

li 

2120 PRINT"DURIN6 AN IflWiTE. LfDATE FWCTION IS TERWmTED. " 
2130 PRINT"THIS ERROR USUALLY OCCURS DUE TO MAKING NfllCS AND" 
2140 PRINT"DESCRIPTIONS L0W3ER THAN INDICATED BY THE PROW>TS. " 
2150 PRINT"TI€ CONTENTS OF ENTRY"; X;" USED";TL;" BYTES OF ¥EmS 

2160 PRINT'TO INSURE FILE INTEKITY, THE ABOW APPLIMCE ENTRY" 

2170 PRINT"SHOULD BE DELETED AND THEN RE-ENTERED IN ITS ENTIREIT 

V." 

2188 PRINT: IW>UT"PRESS ENTER TO CONTINUE"; E$ 
2198 RETURN 
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TYCOON 

Take the helm of a small 
manufacturing business - set 
pay standards, advertising 
budgets, etc. Your progress is 
well-charted. 

This game can accommodate up 
to four would-be financial 
wizards... last one to make 
$10,000,000 becomes the jani- 
tor! 




TRI-»0 lofluKiftt 

' 17 Briar Clifl Oriw* Milford. N««v Hampshire 



Histograph/ 
Scottergrciin 

by Gary S. Breschini 

Histograph constructs a five- to 
fourteen-element bar graph. 
User specifies the range of data 
and number of bars in graph; 
program sets upper and lower 
response limltes for each bar 
elenrient. Graph composed In 
"real time" as data Is entered. 

Scaitergram plots XY Infor- 
mation for visual analysis of 
trends. Extensive documen- 
tation. 

Level II, 16K ............$9.95 

TRI-0O SofluiOfft ExchdACic 



TRS-80 
Users Group 
Information 



The Pacifica TRS-80 users group 
meets in the Radio Shack Store at 
the Eureka Square Shopping 
Center located about 10 miles 
from San Francisco on the 2nd 
and 4th Thursday of each month 
to exchange programs and ideas 
regarding the TRS-80. All are 
cordially invited. Call (415) 
359-4687 for further details. 
Meeting time: 7:30 pm. 



t:o 



Entrapment 
Entrapment 

A by Robert C. Hall, III 



This game looks deceptively simple. Actually, it's one of 
tKe best two-player games developed for the TRS-80. It 
requires fast reflexes, quick thinking, and grand strategy. Skill 
determines the outcome, yet the range is so broad that a four 
year old can play and enioy it, so long as he's matched with an 
opponent of similar skill. 

The object is to use the appropriate keys to move your line 
so that it boxes in your opponent. If you run into your opponent, 
the boundaries, or even your own line, you lose. This can be as 
simple as inadvertently pushing the down button when you're 
going up. 

For younger children, the keys can be marked with arrows 
using tape or stick-on labels. You may find it necessary to 
require a person to move before his opponent gets halfway 
across the screen, otherwise a player could just sit still until the 
other player made a mistake 



MOVEMENT INSTRUCTIONS 


LEFT PLAYER 


RIGHT PLAYER 


UP 


W 


P 


RIGHT 


S 


; 


DOWN 


^m^ 




LEFT 


^H 


L 

J 
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1 CLS 

2 REM **ROBERT C. HflLL III (12/31/78)** 
4 REN **PR1NT THE INSTRIKTIOC** 
5G0SUB18e8 

10 aS:PRIKTCHRI(23) 

11 PRINT"INPUTPLfiVER ONE'S Nfl«E:" 

12 INPUTS* 

O PRINT:PRINT"INPUT PUWER THO'S NflHE:" 
14 IWnJTC* 

15 as 

16 REM ♦*SET UP THE BORRD** 

20 F0RX=8T012?:SET(X. 4) :SET(X, 4?) :ICXT 

30 F0RV=5T046:SET<8. Y) :SET(L V) :SET(i26, V>:SET(12?, V) :NEXT 

38 REM ♦♦PLflVER I'S P<SITION (X,V): IfCKMENTS FUB** 

40 X=10:V=18:ft=0:B=0 

44 REM **PLflVER 2'S POSITION (C,V): INCREMENTS D,E** 

45 C=120:V=40:D=0:E=0 

47 PRINT§1,B$; " HflS'iRTj »HIN(S)"; :PRINTTflB(23)"**ENTRflPMENT**" 

48 PRINTI(50-LEN<C$)), C$; " HftS"i REj '•HIN(S)«; 

49 fl$=INKEV$:IF R$="" THEN M ELSE 49 

50ft$=INKEV« 

55 IFR$=»"TJ£N 508 

60 IFfl$="ft"TICm=-l:B=0:GOTO500 
65 IFFI$="L"TICND=-1:E=0:(2)TO6M 



GOTO500 
K1ITO600 



70 IFfll=''Z"THENfl=8:B=l 

75 IFfi$=". »THEM)=0:E=1 
80 IFfi$="S"THENR=l:B=0 

S5 lFfl$="i "Tl€ND=l:E=8:<S)TO60e 

90 IFfi$="W"THENR=0:B=-l:GOTO5M 
95 IFfi$="P»T«M)=0:E=-l:6OTO6Wi 

500 REM **MOVE THOSE PIECES** 

513 IF<fi=0>WD(B=0)TI€f615 

514 IFP01NT<X+aV+B)TJe 546 

515SET(X+R,V+E) 
520 X=X+fl:V=V+B 

530 mim& 

54ePRINT§540,C*i« WINS"; 

541 RE=RE+1 

545 F«G{=1T01^ : NEXT : 60T015 




54 



6e8 iF<[>=e)mD(E=e)TieN628 

618 IFPOINT(C+D,V+E>TtEN 796 
628 SET<C+D,V+E) 
638 C=C+0:V=V+E 

m PRIHT»4e,B$i' HINS"; 

781 RT=RT+1 
718 GOT0545 

1888 REM ♦♦SUBROUTINE TO PRINT INSTRUC:TIONS** 

1885 as 

1818 PRINTCHR$(23)i 

1828 PRINT" INSTRUCTIONS" 

1028 PRINTSTRIN(»(38, "♦") 

1048 PRINT"THIS IS THE GflIC OF ENTRflPHENT" 

1845 PRINT 

1050 PRINT"THE OBJECT IS TO ENCLOSE VOUR" 

1868 PRIHT"0PPOICHT AND FORCE HI« TO HIT" 

1870 PRINT'fl HflLL. COLLIDING HITH flNV" 

1088 PRINT'LIT SPfiCE HILL RESULT IN THE" 

1890 PRINT'LOSS OF THE Gfll€. " 

1180 PRINT 

1110 PRINT"THE GflME CONSISTS OF THO MOV-" 

1128 PRINT" IN6 H«.LS, EACH CONTROLLD BV" 
1128 PRINT"fl DIFFERENT PLflVER. ft CtWIffi" 
1148 PRINT"IN DIRECTICW IS ftCCOIfllSHED" 
1158 PRINT"BY PRESSING CONTROL KEYS" 

1151 INPUT"PRESS 'ENTER' TO CONTINUE") G$ 

1152 aS:PRINTCHR$(22) 

1168 PRINT"THE CONTRO. KEVS ARE fiS" 

1178 PRINT"FOLLOUS:" 

1174 PRINT -.PRINT 

am PRINT"DIRECTIC« PLW. #1 PV^ #2" 

1185PRINTSTRIf«j$(30,"*") 

1198 PRINT" UP U P" 

1280 PRINT"DOMN Z 

1218 PRINT"RIQHT S ; " 

1228 PRINT"LEFT ft L» 

1220 PRINT:PRINT:IWDT"PRESS 'ENTER' TO CONTINlE";HI 

1248 RETURN 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 




NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors 
and omissions in TRSDOS 2.1 and disk BASIC, yet the two 
are completely compatible! Programs and files saved under 
one can be used with the other interchangeably. Going from 
TRSDOS 2.1 to NEWDOS is like going from Level I to 
Level II: more power, more convenience, greater speed. 

NEWDOS has the power to: 



•Use all DOS commands 
(incl. directory) in BASIC 

•Automatically load and run 
a BASIC program 
on power-up 

•Produce variable cross- 
reference tables 



•Open 'E' to add to 

sequential files 
•Append files 
•Use your line printer as 

a screen printer 
•Renumber BASIC programs 
•End keyboard bounce 



And^ best of all^ say goodbye to system crashes^ lost data and 
wasted time caused by your old, bug-ridden system software. 



You paid $500 for your disk drive — 
why struggle with it? 



\ 



56 



Apparat's NEWDOS is fully documented and available 
for only $49.95 from: 

TcE TRI-60 lofluKifc CxchoAoe 

1^- 17 Briar Cliff Drive Milford, New Hampshrre 03055 




If NEWDOS is the Cadillac of disk-operating 

systems, then NEWDOS+ has to be the 

Ferrari. NEWDOS + retains all the features of 

the original NEWDOS, and adds 

the following utilities: 

Editor-assembler for disk C 

Disassembler (Z80 machine code) C 

LM Offset-allows transfer of any system tape to a ^ 

disk file (automatically relocated) 

BASICI-Level one BASIC saved on disk ^ 

LV1DSKSL - not a typo, this saves and loads BAS1C1 j") 

programs to disk 

DIRCHECK-tests and lists disk directory C 

Superzap-display print/modify any location C 
in memory or on disk 

Superzap alone is worth the price of this 

package. With it^ we've quickly recovered lost 

programs, restored killed data files, and 

saved many hours of effort. The NEWDOS + 

manual is another plus: clear and concise, it 

even includes a byte-by-byte explanation 

of the directory file ... 

invaluable if you ever need to 

save a crashed disk! 

The price for all this computer power? That's the best part! 

NEWI>OS + , Just $99.95 

MOTl: UN or mit lortwm may rtquir* documantatlon avallabto onty with th« 
purchaMOl Radio 8tiKd(TR8006 2.1 and/or thi RKJto Shack Editor/ AMtmbtar 

MTRMO MlupttM CNdNMMt 

m irartarCINOrtv* MMwCMnrNMpMm MM! 
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BATTLES 



by Level IV 




Assume 

the role 

of a 

Galactic 

Mercenary 

in defense 

of the 

Empire!! 



Space Battles is one of the best 
space games we've seen in a long 
time. Features three levels of play, 
fast, machine language graphics, real- 
time input, and "smart'' enemy ships that move 
and shoot! You'll find that playing the part of a 
mercenary isn't simple. It's not enough to 
eliminate the aliens; you must turn a profit, 
missiles are expensive, the rewards are small, 
and watch out for the radiation belts! ! ! Available 
on Level II, 16K Tape 
or32KDisk. 

Tape - $14.95 
Disk -$19.95 
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-53tSSIe- Presents: 

A Page from The BASIC Handbook by David A. Lien 



The ON ERROR GOTO statement is used to branch to an 
error subroutine, when a program error is encountered, 
without stopping program execution. The ON ERROR 
GOTO statement must appear in the program before an 
execution error is anticipated. Any error encountered 
after the ON ERROR GOTO statement causes the compu- 
ter to execute the line number Hsted in the ON ERROR 
GOTO statement. 

TEST PROGRAM 



eoTO 



Statement 



10 REM -ON-ERROR-GOTO' TEST PROGRAM 

20 ON ERROR GOTO 100 

30 PRINT "ENTER A NUMBER AND IT'S INVERSE WIL.U BE COMPUTED"; 

40 INPUT N 

50 A=1/N 

60 PRINT "THE INVERSE OF";N;"IS";A 

70 GOTO 30 

100 PRINT "THE INVERSE OF CANNOT BE COMPUTED -TRY AGAIN" 

1 10 RESUME 30 

999 END 



SAMPLE K\]^ (using 4 and 0) 

ENTER A NUMBER AND ITS INVERSE WIUL BE COMPUTED74 
THE INVERSE OF 4 IS .25 

ENTER A NUMBER AND ITS INVERSE WILL BE COMPUTED? 
THE INVERSE OF CANNOT BE COMPUTED - TRY AGAIN 
ENTER A NUMBER AND ITS INVERSE WIUU BE COMPUTED? 

(The errorherewas DIVISION BY ZERO.) 

If ON ERROR GOTO is executed during an ON ERROR GOTO subroutine, the error 
message is printed and program execution stops. Test this feature by adding the follow- 
in line to the test program: 

105 ON ERROR GOTO 

A syntax error encountered by some computers causes the line containing the error to be 
printed by the edit feature after the ON ERROR GOTO statement has been executed 
and program execution has stopped. The computer is then in the Edit mode. To test this 
feature change Hne 50 in the TEST PROGRAM to: 

50 ILLEGAL LINE 

The RESUME statement is normally used to return to the main program from an ON 
ERROR GOTO subroutine. 
Copyright ©1978 Compusoft, Inc. 
Reprinted by Special Permission 
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Accounts 
Receivable II 

HEBBLER SOFTWARE SERVICES 



A comprehensive accounts receivable program 
with billing package offering menu oriented 
operation, audit trail with running balance for each 
account, date, description and exact amount for every 
filed transaction, special input procedures, automatic 
error checks — uses random data files. 

The iMdcage wKich allows you to: 

Maintain receivables files on 200 accounts 
Acid new accounts any time 
Change information 
Perform selective mformation search 
Assign terms 

Print listmg of overdue accounts 
Print statements automatically for unpaid accounts 
Pnnt a custom message on statements 
Print mailmg labels 

Print an accounts receivable summary for all accounts or unpaid 
accounts only 
• Post charges and credits at the keyboard 

Package includes one master diskette, one data diskette, 
and in depth instruction manual. Requires TRS-80 with 
16K memory, two disk drives, and line printer. $79.95 



ii« 



TRI-80 loflufOfC f iicIkmi9« 

17 Brtar aiH Dnv* MiHord, Nm> HampcMra 030U 
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SOFTSIEE REAEER POLL 



This month, we'd Ills you to help ub deteimine the future 

ahe^ofSoftSlde. Choose answers to best deecnbe your 

feelings ahouteachofthe possibilities listed below. THANKSI 



..Bixor seven short progranB, no long featijres 
...OiB or two loqg progranB, two or three shdt GziBS 
...Two good leK progranB 



..A me^or feature, wltha stror^ background article, a related prGgram, 
and a shorter program that 18 unrelated 

.. A sutxig praotloal prcgram, aa3oa9»nled t^ a 0Qa9>l^ 

pllnwt.inn rrmn ml 

.. AnedUBtlQanal appUoatlcn, wlthextra data sets for diflferenii age gron^B 
andsetUngB 

..One megor nlmi ilatimn game, wlthaoomplete rulebook, aharts, plcturas, 
andbadigrouDd 

..Your suggBeUcnet?. « 



Ona scale of 1 (loueiy) to 9 (nagnlAosnt), using for "^no experience**, how doydCi 
rate aoHware ftom the suppQere listed below? (Your peraonal oommenteare ee- 
peda^y appreciated in the margin or on a separate sheet of paper) 



HadloShack Tape Talk nag^liB 

Instait Software Mad Hatter Software 

(KUbbaud) 



CLOADmagazlnB 

Hobby World 

PMO Gorporatkm q^ 

LUbboat Associates 

Connputirontos 



Small SystemSoftware 
Programma IxxemaUooal 



Level IV 
Kdcro Arcdidteot 



tXktaelSlinyerSaftwarB Pet««18oft*MB 

ACSSeivloee 8oftv«iMO 

NotbeaetMlorowaie Peopte*8oftw« 

TR8-808oftware Bxatar^ (TRS-eOCocn|wtln© 

Slmptexlty Software PraotkBlAppUoatlons 

ocnUzuBd on next pi^.. 
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Seneatlonal Software Trend IV 

(Creative Gon43futli^ 

CorrpJtrex 

Qaudeus MagazUne 

Mumfopd Micro SystemB 

The Bottom Stfilf 



How lor^ have youhad a Radio Shack Conputer? monthB 

How much have you spent onyour aysterri? $ 

HAVE WILL PURCHASE HAVE WILL PURCHASE COST 

Level II TRS-80 Radio SiMCkPrlnter $ 

Expansion Interface OtherPrlnter $ 

DlskDrlve(8) K KMemoiy % 

SpeechUnlt ?. $ 



How muchdoyouspend per month on hardware? $ software $.. 



Would you be wllllr^ to pay premium prices for exoepuonaily high quality games, 
l.e.,wouldyousperxil50.00farareallysLperStarTrek? YES NO 

What percentage of your computer use is: 

Playli^games Learning to program Other education. 



Business Word Processing Praotloal home appllcauons 

Connected with other Interests Prqgrammli^ for sale 

COMMENTS: 



Pleaee man reaiXKnsestO: READER POLL PC Bqk68, MlUbrd, NH 03055 
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ENGAGEMENT ANNOUNCEMENT 



r^ 



Mr. and Mrs. Hypower Simulation ^^ 

proudly announce the 

engagement and forthcoming marriage 

of their daughter 

FANTASY 

to 

TRS-80 COMPUTER 

son of 

Mr. and Mrs. Micro Computer 

Wedding will take place in 

SoftSide magazine in 1979 



The staff of SoftSide is eagerly anticipcvling the birth of a 
new art form as a result of this match. We feel that one of the 
most creative art forms of the future will be the participation 
novel, in which you assume the role of a character and alter the 
direction of the story by your own actions, instead of simply 
reading what the original author conceived and wrote. 

Right now, creative people who've been writing elaborate 
simulation games are working on computer adaptations. The 
progress they're making is exciting, with greater things to 
come! In our December issue, we presented Santa Paravia en 
Fiumaccio, breaking new ground in simulations on computer. 
In May we presented you with Dog Star, bringing us one step 
closer to the electronic novel. We foresee the time when 
elaborate simulations of high literary and artistic quality will 
captivate the leisure hours thq way television does today, in 
much the same manner that television replaced radio drama, 
and radio drama led to a decline in reading for pleasure. 

In March, SoftSide was contacted by the publisher of The 
Dungconeer and Judges Guild Journal, two magazines 
specializing in the simulation game Dungeons and Dragons. In 
a copy of The Dungeoneer we were surprised to find a list of 
sixty-one other magazines also specializing in fantasy, war and 
simulation games. We also discovered that many of these 
people are starting to use the TRS-80. Once the creative work 
they're doing is suitably married to the computer, the electronic 
novel will be born! We're certain the day is not far off, and we 
intend to be part of it! 



63 




A UTILITY PROGRAM 
THAT GREATLY EXTENM 
THE KEYBOARD, VIDEO, 

AND PRINTER 

SUBROUTINES IN YOUR 

LEVEL II ROM! 



ance Micklus 



KVP runs under DOS or Level II BASIC. It is relocat ble under your 
control and so may be used simultaneously with other machine 
language programs. At least 16K of memory is required. 

Here are some of the 
things you'll be able to do: 



USE AN EXTERNAL KEYBOARD 

Or, use any other serial input device 
m place of the TRS-flO keyboard 



ELIMINATE A COMMON SOURCE 
OF PROGRAM ERRORS by running 
your keytxwrd in upper case only, or 
run in upper/ lower case mode just 
like a typewriter 



PRACTICALLY ELIMINATE KEY- 
BOARD BOUNCE The amount of 
debouncing is user-adjustable 



DISPLAY UPPER AND LOWER 
CASE LETTERS on your video 
monitor screen 



SIMULATE A RADIO SHACK 
SCREEN PRINTER using an ordinary 
printer 



USE MOST ANY ASCII SERIAL 
PRINTER such as Teletype 33 or 
Spinterm 



TELL THE TRS-SO YOU HAVE NO 
PRINTER AT ALL 



EXCHANGE PROGRAMS WRITTEN 
IN BASIC WITH OTHER COM- 
PUTERS From the Sorcerer to the 
IBM 370 (and TRS-80*s, tool) 



r-H 



THE LIST GOES ON AND ONI 



Self-relocating for 16K, 32K or 48K systems 
$24.95 on tape $29.95 on disk 

Jtt TRS-SO Sof lufOM SHcliQAge 



17 Briar Cliff Drive 
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You are a computer enthusiast who 
doesn't mind putting in a day's work for a 
day's pay... 


You've been looking for a challenging 

career with a fast-growing company 

where your efforts will be appreciated ... 


You'd enjoy living in southeastern New 
Hampshire within an hour of Boston, 
the seacoast and White Mountains . . . 


Call us at 603-673-5284 to discuss 
your future at TSE, the largest inde- 
pendent publisher of lKS-80-related 
^^ — _ _ software and publications. 


T^C TR^80 lof IwQfc CiKlKMigc 


• 

^ An Equal Opportunity Employer 



GBTRIDOPYOUR G/&#:?!1) 
D#/?!!:) TYPEWRITER.. 

Effortless tjypirg Is teie! 

The Electric Pencil by Michael ShiB^/er 
is atrue wDrd-proceaairg programforthe 
TRS-80. Enter yDur manuscript, and 
letyDuroonputerdothewDrk BdlUrg? 
Just posiuon the cursor with the arrow Ie^b 
... ne-iey commands let youcharge, delete, 
orinseit. Fully adjustable maiglnB, left/nght 
juedficati n, variable spacirg, page headirgs, 
andmoLXihinDrel Save andiecallyourtext with 
tape ordlskfUes. Typmg eveiythirg from letteiB to leportB is 
fast and incredibly eaqy uang 

Tte Electnc Penal. ^^ei ii, 16K tape f 1CX).00 

Diskveral n - $160.00 




li* 



TRS-80 Sof luiQfc Ciiclioii9tt 

17 Briar aiHDrlv* Milfofxl, New HanvsMra 03065 
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9 Gaines for Pre-School 

CnilarCli by George Blank ^^^~^^^' 

Until they go to school, chil- 
dren think that learning is 
fun, not work. Is this the 
reason that they learn so 
much faster in the early 
years? Play is natural learn- 
ing. And learning is great 
play. With these games 
children teach each other the 
alphabet, addition and subtraction, recognition of letters and 
words, even art as they play with patterns on the screen. The 
games are written for ages four to six. The author has a degree 
in education, with graduate study in child development and 
counseling, plus a wide variety of teaching experience in 
industry, the military, public and private schools, and 
churches. If you have children, and you also have a TRS-80, 
then you should have Nine Games for Pre-School Children. All 
nine games and the menu are in the computer at one time, and 
the children will quickly learn to select the one they want. 

Level II, 16K - $9.95 

l^iC TI1S-80 Sofluiofc Cxch<ific|e 

■ V^B 17 Briar Cliff Drive Milford, New Hampshire 03055 




TRI-80 

PROGR/1MMIMG h+IMT 

One way to add interest to a game is with real time action. This 
routi^ne will pause a few seconds for an input, then continue if none 
is given, setting an input flag (l$= "F") to indicate that no input 
was provided. Then you can test for 1$ equal to F to assess a penalty 
if you wish. The timing can be adjusted with the FOR loop. 

10 FOR A = 1TO500:l$=INKEY$:IF I$" " THEN NEXT:I$="F" 
20 IF l$='T" PR I NT 'YOU WERE NOT FAST ENOUGH t" 
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GAMES PERSONAL SPECIAL PURPi 

B0< 
GAMES PI 

HARDWARI 
GAMES PERS< 
SPECIAL PURPOSl 

GAMES PERSONAL 
ACCESSORIES 



Warfare I antholgy, Level II, 16K 

$7.95 

Backgammon by Scott Adams 

Levelll/16K$7.95 

Bridge Challenger by George 

Duisman Level M, 16K $14.95 

Cribbage by Roger W. Robitaille, 

Sr. Level! or M,16K $7.95 

Sargon Chess by Dan & Kathe 

Spracklen Level II, 16K $19.95 

Chess Companion by Michael 

Kelleher Level II, 16K $7.95 

Microchess 1.5 by Peter Jennings 

Level lor II, 4K $19.95 

Three D Tic Tac Toe by Scott 

Adams Level I or II, 16K $7.95 

Concentration by Lance Micklus 

LeveHorll,16K$7.95 

Amazin' Mazes by Robt. Wallace 

Levelll,16K$7.95 

Time Bomb by David Boh Ike 

Level I or II, 16K $4:95 



CATIILOA 




RE ACCESSORIES 



ACCESSORIES 

ESSORIES 
ARE ACCESSORIES 

PERSONAL 
HARDWARE ACCESSORIES 
SPECIAL PURPOSE 

Snake Eggs with sound by Leo 

Christopherson Level II, 16K 

$14.95 

Life Two by Leo Christopherson 

with Sound, Level II, 16k $14.95 

Android Nim with sound by Leo 

Christopherson Level II, 16K 

$14.95 

Cubes by Leo Christopherson 

Level II, 16K $9.95 

Mastermind il by Lance Micklus 

$7.95 

Mastermind II source list $20.00 

Robot/Breakaway Game duo by 

Lance Micklus Level II, 4K $7.95 

Tycoon by David Boh Ike Level II, 

16K$7.95 

Slalom by Denslo Hamlin Level 

ll,16K$7.95 

9 Games for Preschool Children 

by George Blank Level II, 16K 
$9.95 

Ten Pin by Frank B. Rowlett, Jr. 
LevelH,16K$7.95 
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End Zone by R. W. Robitaille, Sr. 
Level I or II, 16K $7.95 
Atlantic Balloon Cross by Dean 
Powell Level II, 16K Special price, 

$7.95 
Space Battles by Level IV tape, 
$14.95 disk, $19.95 

X-Wing Fighter by George Blank 
Level ll,16K$7.95 
Star Trek 111.3 by Lance Micklus 
Level II, 16K $14.95 
Dog Star Adventure by Lance 
Micklus Level ll,16K$9.95 
Adventures on tape by Scott 
Adams Level II, 16K Choose one: 
Adventureland, Pirate's Cove, 
Mission Impossible $14.95 
Adventures on disk by Scott 
Adams Pirate's Cove plus Ad- 
ventureland for 32 K disk system 
$24.95 

Safari by David Boh Ike Level II, 
16K$7.95 

Treasure Hunt by Lance Micklus 
Level I or II, 16K $7.95 
'Round the Horn by George 
Blank Level ll,16K$9.95 
Pork Barrel by George Blank 
Level II, 16K $9.95 
Kamikaze by Russell Starkey 
Level II, 16K $7.95 
All Star Baseball by David Bohike 
Level ll,16K$7.95 
Air Raid by Small System Soft- 
ware Level I or 1 1 , 4K $14.95 



i^UHMii-l 



Appointment Log by Michael 
Kelleher Level II, 16K $9.95 
Accounts Receivable II by S. 

Hebbler 32K disk systems $79.95 

Inventory II by BUS-80 Dual disk 
systems only $150.00 



Mail List II by BUS-80 32K disk 

systems $99.95 

General Ledger I by Michael 

Kelleher 32K disk systems 

$79.95 

Payroll by Stephen Hebbler for 

disk systems $59.95 

Small Business Bookkeeping 

by R. W. Robitaille, Sr. Level I 

or II, 4K with journal $22.00 

without journal $15.00 

Small Business Bookkeeping for 

Disk by Miller Microcomputer 

Services and R. W. Robitaille, Sr. 

32K $24.95 

Inventory 2.2 by M. Kelleher and 

R. W. Robitaille, Sr. 16K disk 

systems $59.95 

Inventory Modular by R. W. 

Robitaille, Sr. Level I or II, 16k 

$20.00 



j.-^jj.ji.iijiitM.v'n 



Calculator by R. W. Robitaille, 
Sr. Level I or II, 4K $2.95 
Moving Signboard by Circle 
Enterprises Level I or II, 4K 
$9.95 

Drill Masters by Computer 
Graphics — specify title desired 
Level II, 16K $7.95 EACH: 
German, Chinese, Russian, It- 
alian, Spanish, or Music Theory. 
8080-Z80 Conversion Level II, 
16K $15.00 

Renumber by Lance Micklus 
Level II, available in 4 through 
48K (specify when ordering) 
$15.00 

Renumber source listing $20.00 
Renumber on disk all 
versions on diskette $25.00 
Machine Language Monitor by 
Small Systems Software Level I 
or II, 16K $26.95 
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Three Monitors for Disk by Small 

Systems Software Disk for 16 

through 48K (all on one) $29.95 

Math Drill by D. L. Brown Level 

ll,16K$4.95 

RPN Calculator by Russell 

StarkeyLevelir, 16K$9.95 

Ham Radio by Michael Kelleher 

Level II, 16K $9.95 

Ham Radio ARS 1.1 for 32K disk 

$24 95 

Electroiiics Assistant by John 

Adamson Level II, 16K $9.95 

Preflight by Stephen Hebbler 

Level II, 16K $20.00 

KVP Extender by Lance Micklus 

Tape, $24.95 Disk, $29.95 

ST80 Smart Terminal Level II, 

16K $49.95 

ST80D SMARTER Terminal for 

disk systems $79.95 

Basic Statistics by Steve Reisser 

Level II, 16K $20.00 

Micro Text Editor by Don Coons 

Level II, 4K or 16K $9.95 

Text80 by Frank B. Rowlett, Jr. 

For 32K disk systems $59.95 



'Jj'^-^'^'M' 



Tarot by Frank B. Rowlett, Jr. 

Level I or II, 16K $9.95 

Biorhythms by Frank B. Rowlett, 

Jr. Level I or II, 4K $4.95 

Personal Finance by Lance 

Micklus Level II, 16K $9.95 

Advanced Personal Finance by 

Lance Micklus For 32K disk 

systems $24.95 

Keyboard 80 J ames Garon Level 

ll,16K$9.95 

Home Financial Management by 

Michael Kelleher Level II, 16K 

$9.95 



rriCTH 



Sargon Handbook by Dan & 

Kathe Spracklen $14.95 plus 

$1.00 shipping 

The BASIC Handbook by Dr. 

David A. Lien $14.95 plus $1.00 

shipping 

Z80 Instruction Handbook by 

Sceibi Publications $4.95 

The Little Book of BASIC Style by 

John Nevison $5.95 plus $1.00 

shipping 



IJM.MllMrU 
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NEWDOS by Apparat $49.95 

NEWDOSH- by Apparat $99.95 

Cassettes boxes of ten each. 

C-10, $6.50 plus $1.00 shipping 

C-20 $7.50 plus $1 .00 shipping 

Diskettes Dysan, box of 5, $24.95 

plus $1.00 shipping Verbatim, 

box of 10 $34.95 plus $1.00 

shipping 

Diskette Storage Box $5.00 

TRS 232 by Small Systems 

Software $49.95 

Percom Drives Single $399.00, 

Dual $799.00. Cable (required) 

$29.95 



For more detailed descriptions 
of our TRS-80 software and 
accessories, send for the TSE 
catalog — it's free! Write or 
call today for your copy: 

TRS-80 Software Exchange 
17 Briar Cliff Drive 
Milford, NH 03055 

603-673-5144 
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/ Keference\ 



Z80 

Instruction 
Handbook 




Z80 Instruction Handbook 

Scelbi Publications 
Convenient pocket size manual describes 
Z80 capabilites in easy to understand 
terminology. Designed as a practical 
reference to mnemonics, machine codings 
and usage - for programmers of every 
level, from beginner to professional ... 
anyone working in Z80 machine or 
assembler language 

Price, $4.95 + $1 .00 handling 



SARGON 

ACOfUTBI 
CHESS FROGflAM 

OMMOMncsmaifN 

mner-m West OoKlCav^r Fan! 



fi fl 



a 



The BASIC Handbook 

Dr. David A. Lien 
Definitive reference work 
explaming over 50 versions 
of the language in detail. All 
you need to know about the 
major statements* functions. 
operators, and commands 
pertaining to use in micro, 
mini and mainframe com 
puters. Price, $14.95 



Sargon: A Computer Chess 
Program 

Dan & Kathe Spracklen 
Documentation covering all 
algorithms in Sargon can be 
found in this comprehensive 
guide book Contains table of 
contents, block diagram. 4 
part introduction. Z80 listing 
and index to subroutines. 
Price, $14.95 



TcE TRI-OO lofluKifc CxclKifigc 

W 17trlwCimOrlv« MltlM«. Nm HamptMr* MOU 
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by Rsfcr W. RobttaHte, Sr. 

RougK and tumble gridiron action, from the toss of the coin to 
the 2-minute warning... four 15-minute quarters, provisions for 
interceptions, touchbacks, time- 
outs, fumbles, penalties. 
Everything except 
the cheerleaders. 
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